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QUOI?UNAN?DEJA? 



He. oui. ma pauvre dame, comme 
le temps passe ! Vous vous ren- 
dez compte, un an ! II me semble 
que c'etai! hier que je le faisais 
sauter sur mes genoux, ce petit 
coquin d'hippocampe, et mainte- 
nant c'est presqu'un homme ! 

Tout ga ne nous rajeunit pas. 
allez ! I! a quand meme pubfie 
quelques 900 programmes pour 
quantite d'ordinateurs et envoye 
quatre lecteurs en Californie, 
sans compter les prix de son 
concours mensuel : douze fois un 
million de centimes, vous vous 
rendez compte, c'est bien un 
adulte mainlenanl ! Bon, allez, au 
revoir Madame, je m'en vais lui 
acheter son petit cadeau. 
N.D.L.R (1): Parfaitement. c"est 
un homme et nous aussi, meme 
les temmes de la redaction I Et 
pour les petits cadeaux, n'en- 
voyez pas de gateaux, ils fon- 
draient pendant le transport, 
nous prelerons des sous ! (Beau- 
coup et en liquide.s'il vous plait) 



N.D.L.R.C (2) : Allons. Mes- 
sieurs, du calme ! et vous aussi, 
Mesdames : reslons polis et cor- 
rects, vous avez deja employe 
des mots grossiers dans ce ca- 
nard, vous n'allez quand meme 
pas en plus mendier des cadeaux 
aupres des lecteurs. cela ne se 
fait pas, voyons. 

N.D.L.R.G.C.S (3) : Tout a fait, 
vous avez raison, nous sommes 
un journal classe, que diantre ! 
Point de mendicite chez nous, et 
je le prouve : champagne pour 
tout le monde et c'est nous qui 
faisons des cadeaux aux lec- 
teurs. et Hop ■ 

N.D.L.B.E.P.C.Q.LG-C-S (4) : 
Bon. d'accord. puisque vous avez 
fait des promesses inconsiderees 
a nos lecteurs. il ne me reste plus 
qu'a les tenir. je suppose ? 
Allons-y : Tous les lecteurs qui 
nous ecriront recevront un ca- 
deau au choix, soil un Glossaire 
Hebdogiciel qui reprend tous les 
termes de 1'informatique. soit un 
badge Hebdogiciel avec une tres 



joli inscription et un tres joli des- 
sin. meme qu'il est nouveau et 
qu'il est tout en couleur et que 
vous pouvez en voir une tres jolie 
reproduction la. ici, a cote. 




de la poste fera foi ! Non. mais ! 
Je vous en (outrai des cadeaux, 
moi ! Bande de petits salopards '. 

(1) - Note De La Redaction 

(2) = Note De La Redaction Chef 

(3) = Note De La Redaction 
Grand Chef Sioux 

(4) = Note De La Redaction En- 
core Plus Chef Que Le Grand 
Chef Sioux 

(5) = Note Du Cochon De Payeur 



**3gfr' 



N.D.C.D.P (5) : He, Ho ! Ca va 
pas la tele, vous voulez nous 
mettre sur la paille ? OK pour ies 
cadeaux aux lecteurs puisque 
vous avez eu la sottise de les 
promettre. mais limite dans le 
temps, li-mi-te ! Lecteurs, ecou- 
tez-moi ! Oui. vous aussi Mon- 
sieur ! He, Ho, je vous parte '. 
Pour voire cadeau, vous avez 
une date limite : le 19 Octobre. 
pas un jour de plus, et le cachet 



LES PALMES POUR PALMADE 



C'est Pierre Palmade qui gagne 
le concours mensuel : une bri- 
que, un baton. 10.000 balles ou 
si vous preferez un million d'an- 
ciens francs. Et, comme il n'a que 
16 ans et qu'il n'est pas encore 
mur pour les palmes academi- 
ques (section informatique, bien 
sur). il s'offre lui-meme une 



deuxieme decoration : le 
concours trimestriel qu'il rem- 
porte haul la main. II s'envolera 
done aux Irais de la princesse 
Hippocampa vers les USA grace 
a son programme "Paradise" sur 
Oric Atmos. Le paradis et les 
palmes informatiques. que de- 
mander de mieux ? 
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DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET VIC 20 . 
HECTOR HR . HEWLETT PACKARD HP 41 . ORIC 1 ET ATMOS . 
SHARP MZ, PC 1251, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07 ET M05. 

HIPPOREBUS trouvez I'expression qui se cache dans la B.D. de I'hippocampe. Decompose en trois syllabes dans les trois premieres cases, le "tout" 3 evidemment un rapport avec I'informatique 
(solution en page inteneure). 




( N°52 



THE GAMBLER FX 702 P 



En cetle annee 2230, vous etes en periode de vacan- 

ces et pour vous detendre, vous decidez de passer 

votre conge dans une ville Ires tres particuliere (oil se 

melangent les plaisirs de I'aventure du jeu et de I'ero- 

tisme). 

Votre but est de seduire 3 femmes, par n'importe quel 

moyen avant la fin de vos vacances. 

Pour cela, vous disposerez dun certain capital au de- 



Suite du n'51 

CRAPS 

' LIST ft 

1 HUT 38: IHP "HU 

HERO D, ENTREE " 
.SIF R=H THEN 
3 

2 PRT "FfiUX :388* 

D,AHEHDE!":Z=Z 
-388:658 88 

3 B=85:H=53:S=87: 
S*="BTTEKTE":V= 
86: PRT "JOUEZ-V 
OIK: 6/N 1" 

4 IF KEY="N";PR1 
"VOUS SORTEZ.BT 
TIRE", "PAR DES 
CRIS...":L0AD 

5 IF K£V»"0" THEN 

4 

6 PRT "VOUS 8VEZ" 
;Z;"f:INP "VOT 
RE KISE ",H:IF 
Z-r1<8 THEN 6 

7 OIHT (RAHIH3: 
IF C<2 THEN 7 

8 MP "8UELLE CHfl 
NCE ",*:IF *="« 
IH" THEH 25 

9 IF «=»D.HIH" TH 
EN 35 

18 IF t="C0HE" THE 
N25 

11 IF.*="D.COHE" T 
HEN 35 

12 IF M*FIELt" TH 
EH 45 

13 IF *="BI6 6" TH 
EN 5b 

14 IF *="BI6 8" TH 
EH 59 

15 IF i="UHDER 7" 
THEN 61 

16 IF *="CVER 7" T 
HEH63 

17 IF *="JEU/7" TH 
EH 65 

18 IF *="JEU/11" T 
HEN 67 

19 IF *="fl.CRBPS" 
THEN 69 

28 IF *="CRAPS 2" 

THEN 74 
2! IF *="CRBPS 3" 

THEH 76 

22 IF *="CRBPS12" 
THEN 78 

23 IF *="HORH" THE 
N 88 

24 GOTO 8 

25 IF 0=7 THEH V 

26 IF Oil THEN V 

27 IF 02 THEH S 

28 IF 03 THEH S 

29 IF C=12 THEH S 
38 6SB 93 

31 6SB 91 

32 IF F=C THEH V 

33 IF F=7;OF:60T0 

S 

34 6SB 54:6010 31 

35 IF C=2 THEN V 

36 IF 03 THEH V 

37 IF 07 THEH S 

38 IF Oil THEH S 

39 IF C=12 THEH 95 
48 6S8 93 

41 SSB 91 

42 IF F=C THEH S 

43 IF F=7;OF:60T0 

V 

44 6S6 94:6OT0 41 

45 IF C-2 THEN 54 

46 IF 6=3 THEN II 

47 IF CM THEH i; 

48 IF C=9 THEH li 

49 IF C=18 THEN k 
58 IF C=ll THEH li 

51 IF C=12 THEH 54 

52 60TO S 

53 E=2:60T0 V 

54 E=3:60TO V 



55 60TO S 

56 IF C=6 THEH H 

57 IF 07 THEH S 

58 60TO 95 

55 IF OS THEH II 
68 60T0 57 

61 IF C<7 THEN H 

62 GOTO S 

63 IF 07 THEH II 

64 GOTO S 

65 IF O7;E=5:60T0 

V 

66 GOTO S 

67 IF Oll;E=16:60 
TO V 

68 GOTO S 

69 IF C=2 THEN 73 
78 IF 03 THEH 73 
7! IF 012 THEN 73 

72 GOTO S 

73 E=8:G0TO ¥ 

74 IF O2;E=31:G0T 
OV 

75 GOTO S 

76 IF O3;E=16:60T 
OV 

77 GOTO S 

78 IF O12;E=31:G0 
TOV 

79 SOTO S 

88 IF 02 THEH 8 
31 IF 03 THEN 8 
82' IF Oil THEN 8 

83 IF 012 THEN 8 

84 GOTO S 

85 E=5:G0T0 V 

86 PRT Ci" : ";L*: 
H=H*E:Z=Z*H:GOT 
03 

87 PRT Cl" : ";0*: 
Z=Z-H:6S6 88:60 
TO 3 

88 if m;m-"m 

SETES ROME li 
":GS8 »2 

89 RET 

91 OIHT (R8NW3: 
IF F<2 THEH 91 

92 RET 

93 PRT Ci" 
GfiRET 

94 PRT Fl" 
G*:RET 

95 PRT "...COUP HU 
L !M":60T0 3 



EH"; 
I EH"; 



DISCOTHEQUE 

LIST 18 

1 HHIT 38:IHP "VO 
TRE POIDS ",P:P 
RT "ONE 0ISC07H 
EOUE !!!" 

2 *='D!RECTIOH: " 
:PRT "Y EHTREZ- 
VOUS: 0/H r 

3 IF KEY="H" THEH 
14 

4 IF KEY»"0" THEH 
3 

5 PRT "DE SUPERSE 
S FILLES","DfiHS 
EHT...WOUS ft 
SSEVEZ-VOUS:" 

6 PRT CSR 8;"0/N 

7 IF KEY=*0° THEN 
36 

3 IF KEYt'H" THEH 

7 
18 PRT »i"E/S ?* 

11 IF K£Y="E" THEH 
21 

12 IF K£Yt"S" THEH 
11 

13 PRT "VOUS SORTE 
Z DEHORS,." 

14 PUT "UN BRUIT C 
REPITEVPRES D 
E VCUS..VY AL 
LEZ-VGUS: M 7 

15 IF KEY="0" THEN 



part, et tout au long du jeu, vous serez amene a jouer 
pour gagner davantage d'argent (celui-ci pouvant etre 
tres utile dans votre entreprise). 
Mais attention, de multiples dangers vous guetteront. 
Si vous etes ruine vous serez renvoye au purgatoire et 
vous aurez une chance sur trois de revenir dans le jeu. 

Thomas LEPRETTE 



En raison de la 
longueur du lis- 
ting, ce pro- 
gramme passera 
en plusieurs fois. 



16 IF KEY*"H° THEH 

15 

17 PRT $;"S/H ?" 

18 IF KEY="S" THEN 

22 

19 IF KEY*"H" THEH 

18 

21 PRT "DE LA LUHI 
ERE YOUSVATTI 
RE...": LOAD 

22 SSB 16: IF 9>,4 
THEH 21 

24 OIHT (6*!e3:PR , 
T "UH HOMME VOU 
S ASSOHEVET V 
OUS VOLE"!C;"S! 

25 Z=Z-C:GSB 98:60 
TO 21 

26 6SB ft: IF Q>.6 
THEH 28 

27 PRT "CE N.EST 
U,UHRBT..":60T 
17 

28 PRT "UHE LIfiSSE 

OE 5886*", "SE 
TROUVE Ml SOL I 
i" 

38 PRT "Lfl PRENEZ- 
V0US:O/H r 

31 IF K£Y="H" THEH 

17 

32 IF KEY*"0" THEH 

31 

33 GSB I6:IF 0>.8; 
Z=Z*5e3:60T0 17 

34 PRT "OH VOUS US 
SOME ET OH WO 
US VOLE 288* ! ! 

36 V=1NT (RBHJM*2 
:PRT Vi" FILLES 

SOHTVA COTE 
DE VOUS ! !" 

37 PRT "SEDUCTION: 

TJ/H?" 

38 IF KEY="H" THEH 

18 
48 IF KEY»"0" THEH 
- 38 

41 6SB ft:IF8>.5 
THEN 48 

42 PRT "ELLES FfiRT 
EHT...","LESSU 
IVEZ-VOUS:G/H?" 

43 IF KEY="H" THEH 

18 

44 IF KEY*"0" THEH 

43 

45 GSB 16: IF 0^.5 
THEH 47 

46 FRT "ELLES VOUS 

SEHEHT !!":60T 
18 

47 PRT "UH TAXI LE 
SEHHENE!!":60T 
18 

48 PRT "1 RESTE ET 

VOUS DIT:","VI 
ENS CHEZ HOI... 

58 PRT "HCCEPTEZ-V 
OUS: 0/H T 

51 IF KEY="H" THEH 

18 

52 IF KEY'"0" THEH 

51 

53 GSB ft:IF8i.5 
THEH 55 

54 PRT "SOH HARI V 
WIS JETTEVDEH 
ORS! Lfi 6ARCE ! 
!":60TO 18 

55 PRT "VOUS PASSE 
Z 3 HEURESVIH 
006LIB8LES AVEC 
".CS8 7;"ELLE.. 

56 Y=Y*1:G0T0 18 

98 IF Zi8;PRT "VOU 
S ETES RUINE ! ! 
":8SR 12 

99 RET 



ROULETTE 
LIST 18 

1 IHP "VOTRE H6E 
",A:HAIT 38: IF 
A)13 THEH 3 

2 PRT "...TROP JE 
UHE !!!!", "168* 

D.EHTREE !!":Z 
=Z-188:GSB 46 

3 PRT "UHE ROULET 
IE !!!" 

4 PRT 'JOUEZ-VTJtlS 
: 0/H ?" 

5 IF KEY="H" THEH 

43 

6 IF KEYVO" THEH 

5 

7 PRT "VOUS AVEZ" 
;Z;"t!":IHP "VO 
TRE MISE ",«iIF 

Z-H<8 THEH 7 
3 RM4:SM5:OIHT 
<R8Hf*37:IHP" 
6UELLE CHRHCE " 
.t:IF C=8 THEH 
S 
9 IF *="PLEIH" TH 

EN 18 
18 IF *="CHEYAL" T 
HEN 21 

11 IF *="HOIR";I=S 
:F=34:6GT0 25 

12 IF *="R0U6E";I= 
34:F=S:60T0 25 

13 IF *="PAIR" THE 
H 35 

14 IF *="PASSE" TH 
EH 48 

15 IF *="HAH8UE" T 
HEH42 

16 IF *="IHPAIR" T 
HEH37 

17 SOTO 8 

18 IHP "HUHERO ",H 
:IFN=C;E=36:S0 
TOR 

28 GOTO S 

21 PRT "VOS 2 HUHE 
ROS :":IHP "A " 
,D,"B ",B:1FD= 
C THEH 24 

22 IF B=C THEH 24 

23 GOTO S 

24 E=18:G0T0 R 

25 FOR 6=1 TO 9 ST 
EP 2: IF 06 THE 
HI 

26 HEXT G 

27 FOR 012 TO 18 
STEP 2: IF OCT 
KEH I 

28 HEXT G 

38 FOR 019 TO 27 
STEP 2: IF OS T 
HEH I 

31 HEXT 6 

32 FOR 6=38 TO 36 
STEP 2: IF OS T 
HEH I 

33 HEXT 6:6010 F 

34 02: GOTO R 

35 IF 02»IHT (C/2 

THEH 34 

36 GOTO S 

37 IF C>2»IHT (C/2 

THEH 34 

38 SOTO S 

46 IF 018 THEH 34 

41 GOTO S 

42 IF C<!8 THEH 34 

43 GOTO S 

44 PRT C;° : ";L«: 
Z=Z»H»E:60T0 4 

45 PRT Cl" : "101: 
Z=Z-H:SS6 46:G0 
TO 4 

46 IF Z'SiPRT "VOU 
S ETES RUIHE ! ! 
":6S6 12 

47 RET 



48 )="DIRECTIOH: " 
:PRT *;"0/S ?" 

58 IF KEY="0" THEH 
53 

51 IF KEY«=S" THEH 

58 

52 PRT "VOUS HUE 

VERS... "."VOIR 
E HOTEL... "SUM 
D 

53 6S8i6:IFQ>.5 
THEH 55 

54 PRT "UH FOU EH 
flOTO VOUS","... 
ECRBSE !!!»:65B 

(2: SOTO 52 

55 PRT "UNE FILLE 
HflRCHEVDEYAHT 

VOUS...VSEDU 
CTIOH: 0/H ?" 

56 IF KEY="H" THEH 

52 

57 IF KEY»"0" THEH 

56 
53 6SBI6:IF8>.5 

THEH 62 
68 PRT "ELLE VOUS 

REPOHO :","Vfi J 

ODER AILLEURS ! 

I" 

61 PRT "JE SUIS DE 
Jfi PRISE! !":60T 
52 

62 PRT "ELLE VOUS 
EHTRRIHE'VDflHS 

UH HOTEL..." 

63 PRT "LA SUIVEZ- 
V0US:O/H ?" 

64 IF KEY="H" THEH 

52 

65 IF KEY«"0" THEH 

64 

66 PRT "VOUS AVEZ 
EU RAISOHIVC, 
ETAIT SUBLIHE ! 
!!":Y=Y+! 

99 Z=Z-IHT <0«Ie3: 
SSB 46:60TO 52 



HOTEL 

LOAD 18 

LIST 18 

1 H8IT38:IHP"HU 
HERO O.ORDRE ", 
R:!F R=H THEN 3 

2 PRT "FAUX: 988* 

D,AHEHDE!":Z=Z 
-588: SSB 88 
3PRT"...EHFIN! 
L.HOTEL !!",*;" 
H/E?" 

4 IF XEY="E" THEH 

32 

5 IF KEY«"H" THEH 

4 
£ PRT "...VOUS HO 
HTEZ DAHSVVOT 
RE CHAHBRE..." 

7 PRT "PREHEZ-VOU 
S UHE...","DOUC 
HE: 0/H ?" 

8 IF KEY=T THEH 

9 IF°KEY»"0" THEN 

8 
18 6SB i6:IF S<.6 
THEH 26 

11 PRT "VOUS TROUV 
EZ UHE", "FILLE 
NUE.BAILLOHEE!" 

12 PRT "DAHS Lfl DO 
UCHE!!!","LADE 
TACHEZ-VOUS:",C 
SR 6!"« 0/H ? » 

13 IF KEY=T THEH 

28 

14 IF KEY>"G" THEN 

13 

15 PRT "ELLE DIT.D 



OUCEHEHT :","H0 
H SBUVEUR..." 

16 PRT "SORTEZ-VOU 
SLE...V6RAHD 

JEU: 0/H ?° 

17 IF KEY="H" THEH 
25 

18 IF KEY*»0" THEH 
17 

28 GSB ft: IF 9i,6 
THEH 22 

21 PRT "ELLE St DE 
BfiT ET","S,EHFU 
IT!!","CROLEDE 

FILLE!!":60T0 
28 

22 PRT "ELLE EST S 
UBJUSUEEVPAR 
VOTRE CKfiRHE... 

23 PRT "ET PEHDBNT 
3 HEURESWOU 

SETES AU..."," 
..7EHECIEL !!! 

24 Y=Y+l:GOT0 28 

25 PRT "ELLE S.H86 
ILLE ET'VS.EHF 
UIT RRPIDEHEHT" 
:GOTO 28 

26 PRT "LA DOUCHE 
fl ETE...VTRBF 
IfiUEE !!","DE L 
ifiCIDE EH SORT! 

27 GSB 12 

28 PRT *;"S/0 ?" 
38 IF KEY="S" THEH 

37 

31 IF KEY*"0" THEN 
38 

32 PRT "VOUS SORTE 
Z DEVL.HOTEL 
ET...",*;"E/0 ? 

33 IF KEY="0" THEH 
36 

34 IF KEY*"E" THEH 

33 

35 PRT "VOUS BLLEZ 

VERS...VL.HI ■ 
PPODR0HE...":LO 
AD 

36 PRT "VOUS EHTEH 
DEZ DESVHEHHI 
SSEHEHTS...":LO 
AD 

37 GSB ft:IFQ>.8 
THEN 35 

38 PRT "UH HOHHE B 
BRBUVOUS","... 
SAUTE DESSUS ! ! 

48 PRT "C0KB8TTEZ- 
V0U3:0/H ?" 

41 IF KEY="H";PRT 
"VOUS PREHEZ LA 

FUITE":GOTO 35 

42 IF KEY»"0" THEH 

4! 

44 PRT "IL VOUS TE 
RRASSEHVET V 
OUS VOLE 788*!" 
:Z=Z-788:6SB 88 

45 GOTO 35 

46 PRT "VOUS L.BSS 
OHEZ ETVLU! P 
REHEZ 886*!":Z= 
Z»8B8:G0TO 35 

38 IF Zi8;PRT "VOU 
S ETES RUIHE! !" 
:6SB »2 

99 RET 

HIPPODROME 

LIST 18 

1 INP "P0IH1URE " 

.k'.kAIT 36 
1 m "...BEL HIP 
PODROHE !!","Y 
EHTREZ-VOUS: 0/ 
H ?" 




3 IF XEY='H";PRT 
*;"E/H ?":60T0 
18 

4 IF KEY<"0" THEN 

5 PRT "58* D.ENTR 
EE !!":Z=Z-56:S 
SB 98:PRT "ALLE 
Z-VOUS VOIR LES 

6 PRT "COURSES: 
/H ?" 

7 IF KEY="0" THEH 

38 

8 IF KEY»"H" THEH 

7 
5 PRT t;"0/S ?" 
18 IF XEY="0" THEH 
21 

11 IF KEYt"S" THEH 

ie 

12 PRT "VOUS REHTR 
EZ DflHSVUHE P 
IECESOHBRE..." 
:SSB (6 

13 IF8>.6 THEH 16' 

14 PRT "UH RflT VOU 
S SHUTE","DESSU 
SET VOUS..." 

15 PRT "ARRHCHE UH 
E c OREILLE!":P=p 

16 PRT "UHE TRBPPE 

S.OUVRE !","V0 
US TOHBEZ DAHS 
UHE" 

17 PRT "POUBELLE ! 
!!",*!"E/H ?" 

18 IF KEY="E" THEH 

23 

19 IF KEY»"H" THEH 

18 

28 60T0 23 

21 PRT "VOUS DEBOU 
CHEZ DAHS", "UN 
VIEUX 6UBRTIER 



31 PRT ' 

Al 

32 PRT ' 



22 IF H<38 THEH 36 

23 PRT "UN TYPE CR 
IE...VREPDHDE 
Z-VOUS: 0/H ?" 

24 IF KEY="0" THEN 

32 

25 IF KEY*"H" THEH 

24 

26 GSB ft: IF Oi.71 
PRT "VOUS RAHAS 
SEZ288t!!":Z=Z 
♦288 

27 PRT *;"N/E ?" 
23 IF KEY="H" THEH 

48 
38 IF KEY<"E" THEH 
23 

"VOUS ALLEZ 
":LOAD 
"IL VOUS DE 
HBHDE 36t","LUI 
DOHHEZ-V0US:0/ 
H?" 

33 IF XEY="H" THEH 

42 

34 IF KEY>"0" THEH 

33 

35 PRT "TOUT COHTE 
HI, IL VOUS", "DO 
KHE UHE BBSUE ! 
!":G0TO 27 

36 PRT "VOUS GLISS 
EZ SUR...VUNE 

PEAU DE BfiHAHE 

37 PRT "...FOULURE 

DU PIED!":P=P- 
5: GOTO 23 

38 IF RANI). 5 THEN 

41 
48 PRT "LES COURSE 
S SOHTV'TERHIN 
EES !!":GOI0 9 
41 INP "HISE ",«," 
CHEVAL NO (1-6) 
",R:GOTO 68 



42 GSB ft: IF 8>.5 
THEN 45 

43 S=INT (8»1e3:PR 
T "FURIEUX.IL V 

ous»,"VOLE";s;" 

i!":Z=Z-S:6SB 9 
3 

44 SOTO 27 

45 PRT "IL PART HE 
COHTEHT !",*;"E 
/% v 

46 IF KEY="E" THEH 
31 

47 IF KEY*"S" THEN 
46 

48 PRT "VOUS PRENE 
Z UHE RUE-.LOBD 

66 S=IHT (RRHJfttl 

:IFS=R;PRT".. 

6A6HE !!":Z=Z*H 

»6:G0TO 6 
61 FRT "..PERDU !! 

":Z=Z-H:6SB 98: 

60T0 6 
98 IF Zi8;PRT "VOU 

SETES RUIHE!!" 

:SSB 12 
95 RET 

CLUB 

READY P6 
LIST 18 

1 IHP "HUHERO D.E 
HTREE ",H:kAIT 
38:IFk=HTHEH 
3 

2 PRT "FAUX: 1668 
* D,8HENDE":Z=Z 
-1e3:6SB 98 

3 PRT "...VOUS RE 
NTP.EZ DBHSVUN 

SRAHD BAR...", 
t;"N/S ?" 
■4 IF XEY="H" THEH 
12 

5 IF KEY«"S" THEH 
4 

6 PRT "VOUS SORTE 
Z DEHORS.. ":6S8 

16: IF 0>.7;PRT 
t;"E/0 ?"JSOTO 
9 

7 PRT "UHE TUILE 
VOUS TOHBEVDE 
SSUS!! FRACTURE 

!!":P=P-16 

8 PRT "VOUS BLLEZ 
VERS UHEV6RA 

HDE BATISSE..." 
:LOAD 

9 IF KEY="0"iPRT 
"VOUS PREHEZ LA 
...V6RAHDE AV 
EHUE...":LOAD 

18 IF KEY*"E" THEH 
9 

11 SOTO 8 

12 PRT "VOICI 2 PO 
RTES :","L80UEL 
LE PREHEZ-VOUS" 
,CSR 9;"D/6 ?" 

13 IF KEY="6" THEH 
6 

14 IF KEY*"0" THEH 
13 

15 PRT "UH CLUB DE 
..."."...BLACK- 
JACK !!" 

16 FRT "PRIX D.ENT 
REE: 2686i",CSR 

i!"DUR !!!":Z= 
Z-2e3:GSB 33 

17 F=8:V=8:PRT "JO 
UEZ-VOUS : 0/H 

18, iF KEY="N" IHEH 

6 
28 IF KEY»"0" THEH 

18 
21 PRT "VOUS AVEZ" 
;Zi"t":IIIP "VOI 



RE HISE ",H:IF 
Z-IK8THEH2I 

22 FOR 1=1 TO ?GS 
8 41:HEXT I 

23 PRT "TOTAL :";F 
:IF F)2i;PRT 0* 
:Z=2-H:6SB 53:6 
OTO 17 

24 PRT "UNE AUTRE 
CARTE:fJ/H?" 

25 IF KEY="0";6SB 
41: GOTO 23 

26 IF KEY*"H" THEN 

25 

27 PRT "...AU8AH8 
UIER !!!":FOR J 

=! TO 2:6SB 44: ' 
HEXT J 

28 PRT "SOH TOTAL i 
EST DE"iV:IF V> 

21 THEH 32 
38 IF ViFlPRT "IL 
fl ";L*:Z=Z-H:6S 
B 33:S0T0 17 

31 IF V<17 THEH 47 

32 PRT "IL A ";0*: 
Z=Z*H»2:60TO 17 

33 IF ZiSlPRT "VOU 
S ETES RUIHE ! ! 
":6SB 12 

34 RET 

35 6=INT (RANttll: 
IF S<2;kt="R0r 

36 IF G»2;IF 6<5lk 
*="18" 

37 IF Gi5;IF Gi7;k 
t="VALET" 

38 IF 6>7;k*="DAHE 

48 RET 

41 GSB 99:S=42:R=4 
3:GSB 48.G0T0 U 

42 PRT "VOUS AVEZ 
UH";C:F=F«C:RET 

43 PRT "VOUS AVEZ 

1 ";H*:F=F»C:RE 
T 

44 6SB S9:SM5:R=4 
6:6SB 43:60T0 U 

45 PRT "IL A UN"!C 
:V=V»C:RET 

46 PRT "IL A 1 ";k 
*:V=V<C:RET 

47 PRT "IL REPREND 

UHE CART£":6S8 
44:60T0 28 

48 IF C=18;6SB 35: 
U=R:RET 

58 IF C=ll;kl="AS" 

:U=R:RET 
38 U=S:RET 
99 C=IHT (RflHt.18* 

2:RET 




A SUIVRE 



LE MAITRE DU DONJON T199/4A 



Pour etre couronne roi, le joueur doit localiser la prin- 
cesse, lui apporter au minimum trois tresors et posse- 
der au moins 80 points. Vous etes invulnerable mais 
pas immortel, chaque deplacement, combat et charge- 
ment vous epuise. Dans ce jeu, la lachete est a pros- 
crire. 

Aux 4 coins du labyrinthe, 4 cavernes magiques vous 
teleportent dans un autre endroit. 

F. OBERLECHNER 




100 REM W«f»» lt Illl 

1JO REM »LE MAITRE DU DONJON* 
120 REM ••••«•*••••••••#»»••* 

130 REM par Franck OBERLECHNER 

140 REM pour TI 99/4A 

150 CALL CLEAR 

160 PRINT " LE MAITRE DU DONJON": 

170 INPUT ■'»VOULEZ_V0US DES DETAILS'? 

>"0" THEN 280 



"iR 



180 IF SEG*(R«, 1, 

190 CALL CLEAR 

200 PRINT : : "_POUR ETRE COURONNE ROI" 

21-0 PRINT : " VOUS DEVEZ TROUVER DANS" 

220 PRINT ! " LE CHATEAU, LA FRINCESSE ET" 

: : " AU MOINS 3 TRESORS"::" ET 80 POINTS. 

230 PRINT i" MAIS DES MONSTRES " : J " INVI 

5IBLES VEULENT VOTRE"::" PEAU " 

240 PRINT :" N'DUBLIEZ PAS LES CAVERNES" 

250 PRINT : : " BONNE CHANCE!!"::" deplac* 

m«nt: E,D, X,S KEY=>" 

260 CALL KEY(3,K,ST) 

270 IF ST-0 THEN 260 

280 RANDOMIZE 

290 NJ-0 

300 CALL CLEAR 

310 MUR«-"006E6E00767676" 

320 C0UL1-9 

330 C0UL2-13 

340 DIM B*U59> , VL( 15B) ,ARM»<4) 

330 CALL SCREEN <2) 

360 RESTORE 

370 CALL CHAR(97,MUR») 

3B0 CALL CHARC1 11, "OOl 1 7A5450 101038" ) 

390 CALL CHARU 15, "FFE7C381B1 C3E7FF" ) 

400 CALL CHAR (1 10, "0") 

410 CALL CHAR(112, "FFFFFFE7FFFFFFFF" ) 

420 GOSUB 4030 

430 CALL C0LaR(9,CDULl ,C0UL2) 

440 CALL C0L0R(10,2,6) 

450 CALL COLOR (11,6, 2) 

460 FOR G=I TO 8 

470 CALL COLORCG, 11,1) 

480 NEXT G 

490 FOR G-13 TO 16 

500 CALL C0LDR<G,6,6) 

310 NEXT G 

520 GOSUB 4320 

530 A«-"DISPER5I0N DES MONSTRES..." 

540 GQSUB 3880 

550 FOR A-128 TO 132 

560 READ B*(A),VL(A> 

370 GOSUB 1260 

380 NEXT A 

590 FOR A-153 TD 159 

600 READ B»(A) 

610 GOSUB 1260 

620 GOSUB 1260 

630 NEXT A 

640 A-lll 

650 VIE-999 

660 NA-0 

670 NT-0 

6BO CALL S0UND(400, 500,2) 

690 GOSUB 1260 

700 PTS=0 

710 X-XX 

720 Y-YY 

730 CALL HCHAR(24, 1,32,32) 

740 FOR W=l TO 6 

730 CALL HCHAR (24, 3+W, ASC <SEG* ( "ORDRE?" , 

W, 1) ) > 

760 NEXT W 

770 CALL KEY(3,K,ST> 

7B0 IF 5T-0 THEN 770 

790 Xl-X 

800 Yl-Y 

BIO IF K-69 THEN 870 

820 IF K-68 THEN 890 

B30 IF K-88 THEN 910 

840 IF KOB3 THEN 770 

B50 X-X-l 

860 GOTO 920 

B70 Y-Y-l 

BBO GOTO 920 

B90 X-X + l 

900 GOTO 920 

910 Y-Y+l 

920 CALL GCHAR(Y,X,ET) 

930 IF ET<>97 THEN 970 

940 X-Xl 

930 Y-YI 

960 GOTO 770 

970 CALL HCHARC24, 1,32,32) 

980 IF ET-1I3 THEN 1 1 30 

990 CALL HCHARtYl ,XI, 112) 

10O0 CALL HCHARCY.X, 111) 

1010 CALL SOUND (60, 300, 3) 

1O20 IF <ET>127)»(ET<14B)TH£N 1330 

1030 IF (ET>132)»(ET<139)THEN 2090 

1040 IF (ET"112)+(ET-110)THEN 1070 

1030 IF ET-139 THEN 2900 

1060 GOTO 2660 

1O70 VIE-VIE-3-INTCPTS/20) 

10B0 P-VIE 

1090 L-16 

UOO GOSUB 3840 

1110 IF VIE<-0 THEN 32B0 

1120 GOTO 730 

1130 CALL HCHAR(Y, X, 113) 

1140 CALL HCHAR(Y1 , XI, 112) 

1130 GOSUB 4320 

1 160 FOR W-l TO 13 

1170 CALL COL0R(ll,W,2) 

1 1B0 NEXT W 

1190 CALL COLOR! 1 1,6,2) 

1200 A-lll 

1210 GOSUB 1260 

1220 X-XX 



1230 Y=YY 

1240 CALL HCHARCY, X, 1 I 1) 

1230 GOTO 1070 

1260 XX=INT{RND*27)+4 

1270 YY = INT(RNDM5)+2 

12B0 CALL GCHARCYY, XX, ST) 

1290 IF (STOl 10)»<STOI12)THEN 1260 

1300 CALL HCHARCYY, XX, A) 

1310 CALL S0UND(100,-6,5) 

1320 RETURN 

1330 REM RENCONTRE MONSTRE 

1340 FOR F-500 TO 200 STEP -20 

1350 CALL COLORUO, 10,6) 

1360 CALL S0UND!B0,F,2> 

1370 CALL COLORUO, 2, 6) 

1380 NEXT F 

1390 A* = "COMBATTRE UN "S.B* (ET) S." "iSTR* ! 

VL(ET) )fc" 70/N" 

1400 GOSUB 3880 

1410 CALL KEY(3,K,ST) 

1420 IF ST*0 THEN 1410 

1430 IF K=79 THEN 1 5S0 

1440 IF K07B THEN 1410 

1430 IF NA-0 THEN 1540 

1460 ARM»(NA)*="" 

1470 A*="DANS VOTRE FUITE. . . " 

14B0 GOSUB 3880 

1490 A*="...VOUS PERDEZ UNE ARME. " 

1500 GOSUB 3880 

1510 ARM*(NA)="" 

1520 CALL HCHAR!18+NA,24,32,B) 

1530 NA-NA-I 

1540 A=ET 

1550 GOSUB 1260 

1560 VIE-VIE-50 

1570 »GOTD 1080 

1580 IF NA>0 THEN 1630 

1590 A*="VOUS COMBATTEZ A MAINS NUES. " 

160O GOSUB 3880 

1610 A*="COMBAT A "&STRS < VL (ET) ) S." CONTR 

El." 

1620 GOSUB 3880 

1630 VARM=1 

1640 GOTO 1800 

1650 A*="COMBAT A MAINS NUES70/N" 

1660 G05UB 3BB0 

1670 CALL KEY(3,K,ST) 

1680 IF ST-0 THEN 1670 

1690 IF K-79 THEN 1610 

1700 IF K07B THEN 1670 

1710 A«="OUELLE ARME UT IL ISEZ^VOUS - ?" 

1720 GOSUB 38B0 

1730 CALL KEY(3,K,ST) 

1740 IF (ST=0)+{K<49)+(K>52)+IK>NA+4B)TH 

EN 1730 

1750 A*="COMBAT AVEC "S.ARM* (K-48) 

1760 GOSUB 3880 

1770 VARM=VAL(5EG*(ARM*(K-4B) ,7, 1) ) 

1780 A$ = " A "S<STR»<VL 1ET) ) V CONTRE "t-ST 

R*<VARM) 

1790 GOSUB 38B0 

1BOO REM COMBAT 

1810 CALL HCHAR(20,7,32,3) 

1820 D1=INT(RND»6)+1 

1830 D2=INT(RND*6)+I 

1840 CALL HCHAR(20,7,D1*48) 

1B30 CALL HCHAR(20,9,D2+48) 

1860 IF D1*D2+VARM>VL(ET1 THEN 1930 

1S70 IF D1+D2+VARM-VL!ET)THEN 2030 

1B80 A«=-"VDUS PERDEZ LE COMBAT (- "S.STR» 

(VL(ET) it,") " 

1890 CALL S0UND(200,-6,O) 

1900 GOSUB 3B80 

1910 A=ET 

1920 GOSUB 1260 

1930 VIE-VIE-VL(ET) 

1940 GOTO 1080 

1950 A»="LE "*«8»<ET)&" EST MORT!!" 

1960 GOSUB 3880 

1970 CALL SOUND!800,-3,2) 

1980 PTS=PTS-VARM+VL(ET> 

1990 P-PTS 

2000 L-22 

2010 GOSUB 3840 

2020 GOTO 1080 

2030"A»="LE "*,B»!ET)!<" S'ENFUIT!" 

2040 GOSUB 3880 

2050 A-ET 

2060 GOSUB 1260 

2070 CALL SOUND (700, -4, 1) 

2080 GOTO 1070 

2090 REM PRISE D" ARME 

2100 FOR F-200 TO 500 STEP 13 

2110 CALL SOUND(70,F,5) 

2120 NEXT F 

2130 FOR F-l TO 30 

2140 CALL COLORUO, 13,6) 

2130 CALL C0L0R(10,4,6) 

2160 NEXT F 

2170 CALL COLOR! 10,2,6) 

2180 A*="VOUS TRDUVEZ UNE "fcB«(ET) 

2190 GOSUB 3880 

2200 IF NA<4 THEN 2480 

2210 A»-"VOUS ETES TROP CHARGE!!" 

2220 GOSUB 38B0 

2230 A»="FAITE5 VOUS UN ECHANGE70/N" 

2240 GOSUB 38B0 

2230 CALL KEY!3,K,ST) 

2260 IF ST-0 THEN 2230 

2270 IF K-78 THEN 2430 

2280 IF K<>79 THEN 2230 

2290 A«="CONTRE QUELLE ARME7" 

2300 GOSUB 38B0 

2310 CALL KEY(3,K,ST) 

2320 IF (BT-0)+(K<49>* 

2330 C*-ARM«<K-4B) 

2340 ARM* 1K-48) -B*!ET) 

2350 D«"ARM»<K-4B) 

2360 FOR F-l TO LEN(D«) 

2370 CALL HCHAR ( 1B+K-4E 



K>52)THEN 2310 



,F,1! 

2380 
2390 
D»,7, 
2400 
2410 
2420 
2430 
2440 
2430 
2460 
2470 
2480 
2490 
2300 
2510 
2520 
2330 
2340 
2330 
2360 
2370 
2380 
2390 
2600 
2610 
2620 
2630 
2640 
2630 
2660 
2670 
26B0 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
27B0 
2790 
2800 
2B10 
2B20 
2830 
2B40 
2850 
2860 
2B70 
2B80 
2890 
2900 
2910 
2920 
2930 
2940 

ieo 

2930 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3030 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3130 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
33B0 
3390 
3400 
3410 
3420 
3430 
3440 
3430 
3460 
3470 
34BO 
3490 
3300 
3310 
3320 



3530 
3360 
3370 
3580 
3390 
3600 
3610 
3620 
3630 
3640 
3630 
3660 



l,F»24,ASC(SEG«(D» 



670 



PTS-PT5-VALISEG»(C*.7, 1) )*VAL(5EG» 

1 ) ) 

P=PTS 

L-22 

GOSUB 3840 

GOTO 1070 

A-ET 

A-ET 

GOSUB 1260 

GOTO 1070 

A*="PRENEZ_V0U5 L - ARME?0/N" 

GOSUB S88C 

CALL KEY(0,K,ST) 

IF ST-0 THEN 2300 

IF K-79 THEN 2370 

IF KO70 THEN 2500 

A-ET 

GOSUB 1260 

GOTO 1070 

NA-NA+1 

ARM*(NA)=B» (ET) 

D*=B*(ET) 

GOSUB 3950 

PTS-PTS + VAL (SEG» (ARM* f NA) , 7, 1 ) 1 

P-PTS 

L-22 

GOSUB 3B40 

GOTO 107O 

REM PRISE DE TRESOR 

FOR F-200 TO 300 STEP 10 

CALL SOUND(70,F,3) 

NEXT F 

FOR F-l TO 20 

CALL COLOR (10, 16,6) 

CALL COLORUO, 2, 6) 

NEXT F 

A* = "'V0U5 TROUVEZ UN "&B»(ET) 

GOSUB 3880 

IF NT<4 THEN 2820 

A*="MAIS VOUS ETES TROP CHARGE!" 

GOSUB 38B0 

A-ET 

GOSUB 1260 

GOTO 1070 

NT-NT+I 

0*=B*(ET) 

GOSUB 3990 

PTS-PTS-t-VL(ET) 

L-22 

P-PTS 

GOSUB 3840 

GOTO 1070 

REM RENCONTRE PRINCESSE 

GOSUB 4320 

A*-"LA PRINCESSE EST DEVANT VOUS!" 

GOSUB 3BB0 

IF (PTS>-80)»(NT>2)THEN 2930 ELSE ! 

A*="VOUS ETES ASSEZ RICHE..." 

GOSUB 3880 

A*-"POUR ELLE.ET POUR ETRE ROI!" 

GOSUB 3880 

FOR F-l 10 TO 500 STEP 20 

CALL S0UND(7O,F,3) 

NEXT F 

CALL CLEAR 

CALL CHAR! Ill, "FFFFFFFFFFFFFFFF" ) 

CALL CHAR 11 12, "FFFFFFFFFFFFFFFF") 

CALL COLORUO, 11,21 

CALL COLOR! 11,9,2) 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT l 

FOR TE-1 TO 10O0 

NEXT TE 

GOTO 3610 

A»-"_VDUS N'ETES QU'UN MANANT ! . . 

GOSui 3BB0 

A*-"_HORS DE MA VUE. . . DIT-ELLE" 

GOSUB 3880 

A-lll 

CALL HCHARIY, X, 159) 



Y-YY 

GOTO 730 

REM FIN DE VIE 

FOR F-110 TO 1000 STEP 20 

CALL SOUNDOO.F, INT(F/100)) 

NEXT F 

CALL CLEAR 

CALL CHAR [lit, "FFFFFFFFFFFFFFFF" 

CALL COLORUO, 16,2) 

PRINT " DM" 

PRINT " ooooooo" 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT 

PRINT ' 

PRINT. 

PRINT 

PRINT 

PRINT ' 

PRINT 



PRINT l" CONSOLEZ_VOUS: " 

PRINT " VOUS N'ETES NI LE PREMIER" 

NI LE DERNIER" 
FDR F-l TO 1300 
NEXT F 

CALL COLOR! 10. 13,2) 
CALL COLOR! 10, 12,2) 
CALL SOUND (1000, 20000, 30) 
CALL COLORUO, 16,2) 
CALL CLEAR 

INPUT " AUTRE PARTIES 0/Nt"lR« 
IF SEG*(R*. 1, IX >*0" THEN 3790 
NJ-NJ+1 

IF NJ<>2 THEN 3710 
MUR*-"006E6E00767676" 
COULt-14 



ppppppppppp 



VIVE LE ROI 



ooaoaooaoaa 



" AH' AH! AH! VOUS ETES MORT 



3680 GOSUB 3800 

3690 C0UL2-13 

3700 GOTO 350 

3710 IF NJOl THEN 3770 

3720 C0UL1-7 

3730 C0UL2-9 

3740 MUR* = "FFFFFFFF" 

3730 GOSUB 3800 

3760 GOTO 330 

3770 GOSUB 3BO0 

37B0 GOTO 2B0 

3790 STOP 

3B00 FOR F-l TO 16 

3B10 CALL C0L0R(F,2,2) 

3B20 NEXT F 

3830 RETURN 

3840 CALL HCHAR!L,7, INT (P/ 100) +48) 

3830 CALL HCHAR !L, 8. INT !P/ 10) - INT (P/ 100) 

•10*48) 

3860 CALL HCHAR(L,9,P-INT(P/10)»10»48) 

3870 RETURN 

3880 CALL HCHAR124, 1 ,32,32) 

3B90 FOR F-l TO LEN(At) 

3900 CALL HCHAft(24,2*F, ASC (SEG« < A*, F, 1) ) 

3910 NEXT F 

3920 CALL SOUND (800, 20000, 30) 

3930 CALL SOUND ( 100, -2 . 5) 

3940 RETURN 

3950 FOR F=l TO LEN(D») 

3960 CALL HCHAR U8+NA, F+24, ASC (SEG* (D« , F 

3970 NEXT F 

3980 RETURN 

3990 FOR F=l TO LEN!D«) 

4000 CALL HCHARU8»NT,F*13,ASC(SEG*!D*,F 



URN 

BASIC 
SIMPLE 




170 PRINT " annannnnann 

l PRINT : "VIE: 999 TRESOR ARMES 



4190 PRINT : "DES: X X" 

4200 PRINT :"PTS-000" 

4210 PRINT 

4220 CALL HCHARU,3,97,29) 

4230 CALL HCHAR ( 1 7 , 3, 97 , 29) 

4240 CALL VCHAR It , 3, 97 , 17) 

4250 CALL VCHAR (1 , 31 , 97, 17) 

4260 CALL VCHAR (19, 12,93,4) 

4270 FOR X-I TO A 

4280 CALL HCHAR I1B+X, 23, 48*X ) 

4290 NEXT X 

4 300 CALL VCHAR II 9, 24,93.4) 

4310 RETURN 

4320 RESTORE 4370 

4330 FOR W-l TO 33 

4340 READ E,F 

4330 CALL SOUND IE, F, O) 

4 360 NEXT W 

4370 DATA 200.262,100.262.100,262,100.23 

3, 100, 196,200,262, 100,31 1,230,330,200,26 

2, 100,262, 100,262, 100,233, 100. 196 

4380 DATA 200,262,100,233,250,247,200,26 

2, 100,262, 100,262, 100,233, 100, 196,200.26 

2, 100,311, 100,330, 100,330, 100,349 

4390 DATA 200,370,200.349,100,311,100,26 

2, 100,330, 100,262,200,330,100,262,230,26 

4100 RETURN 

4410 DATA DRAGON. 13.SPHINX, 12, CYCLOF'E. 10 

.GOLEM, lO.LOUDAROU, 1 0. BALROG, 9, OROUE, 9, T 

IGRE,9,CERBERE,B.DRACULA,B 

4420 DATA PYTHON, 7 , MUTANT , 8. COUHARD, 9, LO 

UP, 9, COBRA, 8, GNOME, 7. TROLL, 6, SCORPION, 7, 

LUIIN,6,Z0MBIE,6 

4430 DATA COFFRET,9,LIN(iOT, 10.D1AMANI. Hi 

.COLLIER, 7, SCEPTRE, G.EFEE 4 , FR0NDE3. MAS 

SE 3.HACHE 4, DAGUE 2 

4440 DATA LANCI 4,PR!NCKBM ■ 



BURGER 



Programme pour TO 7 + extension 16 Ko + manettes. 
Ce programme consisle a aider un cuisinier, dans son 
tast-food. a fabriquer ses hamburgers. Pour cela. il fait 
tomber. un par un, les elements du hamburger: une 
tranche de pain, de la salade. et un morceau de 
viande. Mais vous serez poursuivi par des saucisses et 
des poireaux dechaines. 
En vous placant au-dessus de chaque morceau et en 



appuyant sur le bouton "ACTION" de voire manette. 

vous ferez tomber les morceaux. 

Attention: il faul agir dans 1'ordre. c'est-a-dire, le pain, 

la salade, la viande. 

Le mode d'emploi est dans le programme. 

Amusez-vous bien et bon appetit! 

Francis VOGEL 



'•• HAMBURGER PARTY 
••• SEPTEMBRE 193-4 

"•* Copyright VOGEL Franci 
■•• POUP THOHSQN T07 
'•• -EXTENSION lb Ko 



•• 



f- CLEAR,,3e!CLS:=CPEEN2.e.8iHX«i:DIHX'4> 
>T« :RE»58e: JEU-8 

te vi>3:sc-escou-e 

20 DEFCRt<8)-235. 255. 235. 255. 255.255,255 
.255 

21 DEFGR«<27>-8.0, 99,247. 255.255. 127. 108 

22 CEFCRt<28>«0.9. 132.239.255, 255. 255, 12 
3 

£3 0EFGRi(29."9.8,122.2S3.235.255.255,ll 

7 

36 DEFGRI. 1 >- 15. 31.63,63, 127,255,255,255 

40 E'EFGM(2>"240,248*S3£, £'52. 254,255,255 

.235 

50 £iEFCRt(3>*255.255. 255. 127.63,63,31. 15 

50 DEFGRi(4>-235.255,255,254,252,232,249 

.240 

78 DEFGR»<3>-31. 127,255.255.255.255.127, 

31 

80 DEFCR*(6>-248. 25*. 235, 255, 253,255, 254 

.248 

?0 :EFGRt.'7)«49.12~.255.255.255,127,255, 

123 

130 D£FGP*<8>-60. 127,255,255,255,255, 127 



: 10 [>EFGPf<9>> 



1.254.255,255,255,254. 12 



1£3 DEFGRI' 19/ = 12. 30. 80.128. 120.69,38. 12 

:30 CEFGRf<ll>»60. 126.254.231. 103,255. 12 

6.60 

140 DEFGR*<13>*255, 255, 0.0, 255.255,0,9 

170 DEFGR*<16>»255, 195,165, 153, 153.165,1 

95. 235 

!"1 DEFGR»t23>=24. 36,60,60, 69,60. 30. 30 

: r 2 DEFGR*C24>=30.30.68,60.69,126,66, 195 

:"3 DEFCRi< 19 >=62.62, 23.28,44,126,62,60 

1~4 DEFGRI (20 .»• 124. 124, 124, 124, 126, 126,2 

4. 120 

175 DEFGR*<17>=60.60,24,24,60,60.68,24 

176 DEFCR»<18> = 60.60.6.0,69. 126, 126,24,66 

177 DEFGRtA22=62.62,62.62,126.126,24.39 

178 DEFG»trai)=124, 124,56,56,52, 126, 124, 
66 

179 DEFGPS(25.=24,24,24,24,24,69.69.24:D 
EFGPf<26>=165. 99,36. 35. 185. 126.24,24 

130 PHt=GP*' I itGtl 3.<*GPS<2> 

194 SAS=GRS(7>*-GRI'3:>*CR«<9) 

!96 KET*»CR«<27>*0RI<28>*GPS'29>*GRS<27) 

*GRf(28)*GR»(29' 

200 viA»=&»*i-5i*GP*f0>*GR*'6> 

210 ECHI = .7.PS< I3--GPK I3.'-GRS<13> 

229 PPBS = GRS'3.-GPI'9.'*GRS<8>+GR*(0)-GRS 
(9;-GR»<4> 

230 PPHS-GPS'I '*GPI'0.*GR*<O)*GR*'8)*GP* 

a -gpi-2. 

240 PSA«:>GP1<7 '*GP*>3>*GR*<9>*GP«<'7>*GR* 

(8>+GR«<9) 

230 PVIAS-GPS<5>-CP*.:0)-GR*(9/*&Rt(0>*GR 

*C0>+GRt<£) 

255 NBI=3AS :NCS=vias:PNBf=PSAS:PNC*=PVIA 
i:N&=2:NC=HD=l:NB;i=SAi:NCl*=VIAi:PNBl* 
-PSA*"PNC'*>PVlA*'NB'>2'NCl-''D'<-liNB2*« 
5wS:NC2S=VIhI:PNB2I=PSAS:PNC2S=PVIAS:NB2 
=2:NC2«i:D2=l:Nt=0:N!t=9:NI2=9:COU=9 

256 IF JEU=I THEN 265 

257 GOTO 10088 

2 = 9 REM DECOR 

262 JEU=I 

265 CLS 

270 FOP 1-3 TO 34 

280 LOCATE I,3=C0L0P 1,0! PRINTGRC16' 

290 NEXT I 

368 FOP 11-6 TO 16 STEP 5 

319 FOP 12=3 TO 34 STEP 11 

330 LOCATE I2,IHC0L0P 1,8 i PPINTGPI' 16 > 

♦6R*< 16 -GRS' 16 '*CRI<16.>*GPSU6<-GPSU6; 

HSR*" 16 >4£R*(16) 

3^9 NEXT 12:NEXT M 

343 FOP K-2 TO 35 STEP il 

338 FOR j=j TO 21 

366 LOCATE V, J,0;CjLOP4:PRIHTECHI 

3 7 8 NEXT JiNEXT v 

373 FOP *=8 TO 176 STEP 88 

3;& LINE C48+K,24*8+2>-l 12i8-2»f ,24«3*2> 

,4 

333 LINE'44*r,23»S-'48.K.24«8'2i,4 

33? LWE<904-K,2308>-i I2«8-2*K,24f8*2 -. 4 

396 LOCATE -.- ■ ,23.0-C0L0R3iPRINTPPB< 

448 NEXT v 

4:& FOP n-8 TO 2c 3TEP 11 

420 LOCATE 6»H,:S,.3:-fTPBl, lir.0i_.jR 2:P^in 

TPH* 

-'S'- LOCATE &*H, I3,0sCOLOR2»PRINTSAJ 

440 LOCATE 6-H. ::■--■.: . _ -- : :■- ■\H--iWl 

439 NEXT h:hTTPB0,0 

310 PE" ACTIOM 

370 IF X .3 THEN Vi[:G0T0345 

531 IF X-.3 THEN Y.4!C0T0545 

532 IF X<.7 THEN Y-9«G0T034fl 
333 f«*4 

343 K»6:/ = INT'Pn: . ■ ; - 

539 LOCATE K,Yi COLOR 7V8IPRINTCRI 

560 LOCATE v., .•1!COlOP7,0:PPINTGRi >-- 

570 :',- 1 »37iY< 1 >■] 

530 LOCATE ■ 1 ,' R 



590 LOCATE ■ I . 

$■24 I 

600 Z'2.«J5:V2 >»9 

610 LOCATE :-■.■■; IC0L0R2 



.r: L r,P :,.>:PP!riTr> 



•2 ",Y<2>*|iC0L0R7,8[PR*NTCRI 



630 LOCATE :- , --j.i, 7 -l s C 0L0P7. OiPRIMTCM 

[23 ■ 

99S • [>EPL»CEr-ENl CUISTO 

999 COEr-ltCOTO 1081 

1000 fCOEF>-H!Y COEF --'. : :0EF=C0EF*1 

1001 IF H-X ANt C = ImEN PLAY"02L3AWILA 

tL«^OtLHSOF»iSOF»tr„MlF H niREtPEPEIPE["J«L 
£eL'0-:VI«Vl-nv-i:v=lMT'PN[.»34 l#3i LOCATE 
V:,Y,8:C0L0P 7«PRINT6R»(21>*LQCATE ..-I 
iPRIMTGR*(22 

1802 IF vj«0 THEN GOTO 15690 
1003 LOCATE 2,0lCOLOR7lPRINT'SCORES ' : -r : 
LOCATE 1 6,8* COLOR 3JPRIMT-RECOROi-;RtsL0 
ChTE 32.0iCOLOR6:PPrNT"VIE: H !VI 
1804 IF COEF-4 THEN COEF-1 



1085 IF C0EF=1 THEN 82=t:8H-!:RG=23:CR=2 
4IGOT0 1087 

1986 BZ=2:BH=7:PG=26:GR=25 

1987 H«X(C0EF>:C=Y<C0EF> 

1988 GOTO 1043 

1818 IF H-X AND C = Y THEN PLAY -O2L5A0S I LA 
•LAS0«LA3OFA»S0FA4FAnlFAnlREtREREtRED0»L 
2000- :VI=VI-l:Y=l:X=lNT(RN0»34>*3: LOCATE 
X,Y,6iC0L0ft 7;PR[NTGRt<21):L0CATE X,Y*1 
:PRINTGRS<22) 

1011 IF VI-0 THEN GOTO 15000 
1015 0-STICK(8> 
1020 S-SCREEN<X,Y*3) 
1030 P-STRIG<0) 

1040 IF P=-l AN& (S=0 OR S'127) THEN COS 

1041 IF C0U=9 THEN SC=SC*100:C0T0 255 

1042 ON GOTO 2008,1000,3000,1000,4080, 
1008,5068, 1806 

1043 IF X>H THEN GOTO 12000 

1044 IF X<H THEM GOTO 14880 

1045 IF Y>H THEN GOTO 13808 

1046 IF Y<C THEN GOTO 11800 

1999 ' HONTEE 

28B0 IF Y=l THEN GOTO 1888 

2816 IF Y*4 AND (<X>=5 AND X<=12> OR <X> 

=16 AND X<-23> OR <X>-27 AND X<=34>> THE 

M LOCATE X,Y:C0L0R7:PRINTGR*(!7)!L0CATEX 

,Y*l:PRINTGR«<18>:G0TO 1808 

2626 IF Y=9 AND COO -3 AND X< = !2> OR <X> 

=16 AND X<=23> OP (X>=27 ANO X<=34)) THE 

N LOCATE X,y:COLOP7:PRINTGR*(17):L0CATEX 

,Y*l:PRINTCR*i:i8>:GOT0 1666 

2838 IF Y=I4 AND f<X>=5 AND X<=12) OR <X 

>=16 AND X<=23> OR <X>=27 AND X<=34)> TH 

EN LOCATE X,Y:COLOP7:PR3NTGRf(17):LOCATE 

X, Y*l:PRINTGR*<18):G0T0 1000 

£846 LOCATE X, Y+i: COL0R4:PRINTGR*( 13) : Y= 

Y-ULOCATE X,Y:COLOP 7: PRINTCR«< 17) :LOCA 

TE X,Y*i:PRINTGRtC18):G0T0 1800 

2999 ' A DROITE 

3000 IF X=37 THEN GOTO 1000 

3010 IF Y*I<>2 AND Y*l<>5 AND Y+I018 AN 
D Y + 1015 THEN LOCATE X, Y:C0L0R7= PRINTGR 
*C21):L0CATE X,Y+i:PRINTGR»(22):G0T0 1B8 
8 

3826 IF <X>=£ AND X<=4> OR (X>=13 AND X< 
=15) OR <X>=24 AND X<=26) OR (X>=35 AND 
X'=37) THEN LOCATE X. Y: C0L0R4: PRINTGRX 1 
3^: LOCATE X, Y*l :pRIMTGRS< 13>:X=X*I SLOCAT 
E X,Y:COLOP7:PRINTGR*<21):lOCATE X,Y*i:P 
PINTCR*<22>:G0T0 1888 

3838 LOCATE*, YiPRINT" *:lOCATE X,y*i;PRI 
NT- "!X=X*i:L0CATE X, Y: C0L0P7:PRINTGPt(2 
l':LOCATE X,Y*l:PRINTGR*'22):G0T0 1888 

3999 ' DESCENTE 

4B00 IF Y=20 THEN GOTO 1886 

4019 IF Y=4 AND C(X>=5 AND X<=12) OR (X> 
=16 AND X<=23) OR (X>=27 AND X<=34)) THE 
H LOCATE X,Y:COLOP7:PPINTGR*M7):LOCATEX 
.V*i:PRIMTGR*(I8-<:G0T0 1000 

4020 IF Y=9 AND ((X:=5 AND X<=12) OR <X> 
=16 AND X<=23> OR <X>=27 AND X<=34>) THE 
N LOCATE X,Y:C0L0P7:PRINTGRif 17):L0CATEX 
,Y*i:PRINTGR«':i8):G0T0 1008 

4030 IF Y=14 AND <(X>=5 ANO X<=12) OP <X 
>-16 AND X<=£3) OR (X>=27 AND X<=34>) TH 
EN LOCATE X,Y:C0L0R7:PRiNTGR*(17):LOCATE 
/, Y*1:PRINTGR*( 18^:G0T0 1999 
4040 LOCATE X,Y:C0L0R4:PRlNTCRf<13>:YeY+ 
J: LOCATE X, Y:C0L0R7: PRINTCR*< I 7) ! LOCATE 
X,Y*l:PRINTGRt(I8>:G0T0 1000 

4999 ' A GAUCHE 

5000 IF X=2 THEN GOTO 1000 

5810 IF Y*I<>2 AND Y*l<>3 AND Y*IOI8 AN 
D t>l<>13 THEN LOCATE X, Y: COLOR?: PR JNTGP 
t'19):L0CATE X, Y*I :PRINTGRt'20 -: GOTO 100 


5020 IF <X>-2 AND X^=4 ) OR ( X) - 1 3 AND X< 
-15> OR <X>-24 AND X<-£6) OR fX>=35 AND 
X'=37> THEN LOCATE X, Y:C0L0R4:PRINTGRf ( 1 
3'!L0CATE X,Y*l:PRlNTGR»<:i3>:X = X-i:L0CAT 
E X,Y:COL0P7:PPINTGR*U9):L0CATE X,Y*1:P 
PINTGPK20/:COTO 1000 

5838 LOCATEX,Y:PRINT- "iLOCATE X,Y*1:PRI 
NT- "iX-X-JiLOCATE X,Y:C0L0R7:PP1NTGRI(1 
9>:L0CATE X,Y»1:PR1NTGP*<£8^G0T0 1800 

5999 * CHUTE HAHBURGER 

6988 IF <X>=2 AND X<-4> OR (X>=13 AND X< 
=13) OP <X>=24 AND X<=26> OR 'X>-35 ANO 
X<-37) THEN RETURN 
6003 PO-0 
6010 FOP J«l TO 3 
6920 FOP 1=1 TO 3 

6623 IF Ytl = 10 AND '.-.'=25 AND X' = 33> TH 
EN Z=18:G0T0 6045 

6830 IF Y*1=<I«5> AND X<>(J*I1) THEN Z=< 
J*J/>PO:GOTO 6045 
6849 NEXT I 
684! PO-3 
6042 NEXT J 

6845 ON Z GOTO 6100. 6200,6380, , 6408, 6700 
.6580,, 6680, 6880,. 6988 

6100 ATTRB1, I:LOC»TE 6.S:PP!NT" ":PLAY 

-O4L24A0DO*:LOCATE 6, 1 9 : C0L0P3: PR INTPHf I 
LOCATE 6, 10:PPINT- - : PLAY-04L24A0D0 - ! L 

OCATE 6, 13:PPINTPHI 

6102 PLAY-D0':L0CATE6, 1 3: COLOPNB! PP I NTNB 
»:PLAY"A8L2404DO-iLOCATE 6, 15:PRINT" 
:^L"Y"m0L24O4DO' , :LOCATE 6.13:PPINT NB( 
6193 ATTRB8,8:PLAY-AOL2404D0-:L0CATE 6,2 
3-D:C0LGPNC:PPINTPNC»:Nei=PHt:NC t=HB*:PN 
C1"PNB*:PN8$=pphi:NC=nB:NB=3:D=D*1:MI-I! 
SC-8C*I00ICOU"COU*I 

6184 FOP CR-t TO 3: IF (Y<CR)"9 AND KCCR) 
•6 AND XCCRX-10) OP <Y<CR>"H AND X'CR 
=6 AND K<CR)<»18) THEN SC-SC-18 
6183 NEXT CRiPETURN 
6288 IF NI'/l THEN BEEPiRETURN 

6201 ATTRB1, i:PLAY"A0L24O4DO-:lOCATE 6.1 
NPP1NT" "ILOCATE 6, I5JC0L0PNBIPPINTNB 
i:PLAY-m0L24O4DO":lO':hTE 6,15:PPINT- 
:PLAY"A0L2404D0-:L0CATE 6, iBsPPINrNRi 

6202 hTTRB0,8:L0ChTE 6.23-D: COLORNC : PRIN 
tpnc t:NC»=NB«:PNC*'PNB*tNC-NB:D-D*|:SC«S 
L*39:NI-2:C0U-C0U»I 

6203 FOP CR-t TO 3: IF Y.CP>-I4 »N(/ : f 
=6 AND X'CR) -10 THEN SC-SCM8 

(204 ne>:t CP:PETUPN 

o360 IF NK>2 THEN 8EEP:PErijPN 

.:-01 mTTP&I, l:PLAY" H 0L24O4DO-:Lfjf H TE 6,1 

3JPPINT- 

6382 ATTRB0»0lPLAY"A6L2404OO*iLOCATE i r i 

3-DfCOLOP NC:PP!NTPNC*:D-D*i:SC-9C*20tCO 
u-COU*l 
=384 RETURN 

&408 ATTP81. l!LOC«TE I7.31PRINT" ":PLh 

A0L24O4PO" ILOCATE I 7. i9:C0LGP1:PPINrPH 



»:LOCATE 17, 18:PRINT- ': PLAVA0L24O4DO 
■iLOCATE 17, 13:PRINTPH* 

6482 PLAY-A8L2404DO":LOCAT£17, I5:COLORNB 
l:PRINTNBI*:PLAY-A8L2404DO*:LOCATEI7,I5: 
PPIHT" -iPLAY*A8L2404D0':L0CATE 17,18: 

PRINT N81f 

6463 ATTR88,8:PLAY-A9L2404D0-:L0CATE 17, 
23-Di:COL0RNCi:PRINTPNCll:NBlf-PH«:NClf= 
HBlf :PNCU=PNBl*:PNBli=PPH*:NCl=NBl!NBl = 
3:Dl=DI»i:NIl=i:SC=SC+189:COU=C0U*l 
6484 FOR CR=i TO 3: IF <Y(CR)=9 AND X(CR) 
>»17 AND X<CR)<=2!^ OR <Y<CR)=14 AND X<C 
RO = I7 AND X<CR)<»21) THEN SC = SC*IO 
6405 NEXT CR:RETURN 
6588 IF NIlOl THEN 8EEP:RETURN 
6581 ATTRB1,1!PLAY'A8L2404DO-:LOCATE 17, 
13:PRINT' -JLOCATE 17, 15=C0L0RNB1 :PRIN 

TNBI«:PLAY'A8L2404D0-:LOCATE17, 1 5: PRINT' 
-:PLAY'A0L24O4DO*:LOCATE 17, 18JPRINTN 
Bl* 

6502 ATTRB6,8: LOCATE 17,23-D1 : COL0RNC1 : P 
PINTPNCl*:NCl*=NBli:PNCU=PNBlf ■ NCI •MB J I 
D1=D1*1:NI1=2:SC=SC*58:COU=COU*1 

6583 FOR CR=1 TO 3t IF Y<CR>»I4 AND XCCR) 
> = 17 AND X(CRX=2I THEN SC = SC-M8 

6584 NEXT CRJRETURN 

6688 IF NII<>2 THEN BEEP:RETURN 

6681 ATT RBI, 1 '.PLAY-A8L2404D0* :L0CATE17, I 
8:PRINT* 

6682 ATTRB8,e:PLAY'A8L2404DO-:LOCATE17,2 
3-DI: COLOR NCI :PRINTPNC1«:D1=DI*1 :SC=SC* 
28:C0U=COU*l 

6684 RETURN 

6788 ATTRBl,i:LOCATE 28,8:PRINT' -:PLA 

Y-A8L2404DO":LOCATE 28, 18: C0L0R3:PRINTPH 
HLOCATE 28,10:PRINT* •! PLAY-A8L2404D0 

■:LOCATE 28,13:PRINTPH* 

6702 PLAY*A0L24O4DO-:LOCATE28, 15:C0L0RN8 
2:PRINTNB2*:PLAY-A8L2404DO*:LOCATE28, 15= 
PRINT' *:PLAY-A8L2404D0": LOCATE 28, IB: 
PRINT NB2* 

6703 ATTRB6,6:PLAY-A0L24O4DO*:LOCATE 2S, 
23-D2:C0L0RNC2:PRINTPNC2*:NB2I=PH*:NC2*= 
NB2*:PNC2*=PNB2*:PN82J=PPHf :NC2=N82tNB2= 
3:D2-D2*t :SC=SC*I88:NI2=l:COU=C0U*l 

6784 FOR CR-1 TO 3: IF CY(CR)=9 AND X(CR> 
>=29 AND XtCR)<-32> OR CY(CR)=14 AND XCC 
R)>-28 ANO X<CR)<=32) THEN SC=SC*I8 

6785 NEXT CRJRETURN 

6888 IF NI801 THEN BEEP:RETURN 
6301 ATTRBl,l:PLAY-A8L24O4D0":L0CATE 28, 
13:PRINT" 'JLOCATE 28, 13: C0L0RN82: PRIN 

TNB2«:PLAY-A8L2404D0-:L0CATE28, I5:PRINT- 
*:PLAY-A8L2404DO"-'LOCATE 28, 18'.PRINTN 
B2* 

6382 ATTR88, 8: LOCATE 28. 23-D2:COL0RNC2: P 
PINTPNC2*:NC2*=NBai:PNC2*=PNB2i:NC2=N82: 
D2«D2*l:SC=SC*58:NI2=2:C0U=C0U*l 
6803 FOR CR«1 TO 3: IF Y<CR>-14 AND X<CR) 
>-29 AND XCCR)<"32 THEN SC=SC*I8 
6884 NEXT CRJRETURN 
6988 IF NI202 THEN BEEP:RETURN 

6981 ATTR81, I : PLAY-A8L2404D0-:L0CATE28, 1 
8:PRINT* 

6982 ATTRB0,8:PLAY , A8L24O4DO - !LOCATE28,2 
3-D2: COLOR NC2: PR1NTPNC2S: D2=D2*i :SC=SC+ 
26:C0U=C0U*1 

6904 RETURN 

10000 ' PRESENTATION 

10818 CLS 

18823 SCREEN2,8,8:CLS:F0R 1=1 TO 7:B0X(1 

8,3)-<31,18)'»-,l 

18839 ATTR81, ULOCATE 13, 16,8: COLORI : PRI 
NT'BURCER'5- 

10035 LOCATE 19, I2,0:PRINT*A7" 

18840 LOCATE I8,8,8:PRINT-EAT" 
10843 PLAY"03A2RE" 

18845 NEXT I 

10836 A$=INKEYI 

10068 ATTRB6,8:LOCATE0,2i,e:COLOR2,6:PRI 

NT-POUP LA REGLE DU JEU APPUYEZ ';:COLOR 

8, 3: PPINT" ENTREE -:COLOR2,0: LOCATE 8,22,0 

:PRINT"3IN0N APPUYEZ SUR UNE TOUCHE OUEL 

CONQUE' 

18665 U=RND 

18868 IF A«-"- THEN GOTO 10050 

10879 IF A*-CHR*U3> THEN GOTO 10100 ELS 

E GOTO 260 

18188 CLS:SCREEN2,9,0 

10II0 LOCATE 9,1,9:C0L0R 6: ATTRBI ,9:PRIN 

T-REGLE DU JEU": ATTRB0,0 

18120 L0CRTE0,6,8!PRINT-Atd«z 1c Cuisto 

■: LOCATE 17, 6, 9: C0L0P7: PRI NTGR*< 20 > J LOCA 

TE 17,5,0iPPINTCP*' 19 >:C0L0R2: LOCATE 1^.6 

,9:PRINT-BURCER • ; : C0L0P6!PPINT"a fabric 

u«r * 

10130 LOCATE 0,8,O:PPINT*s«s »«ru«ill«ij* 

10248 LOCATE 8, 1 0. 0: PRI NT "Pour cela il u 

ous faudra evitcr tits '■' 

10250 LOCATE 0, 12, 0sPRlNT--sauc :»««» r«u 

olt«««:*:COLORi: LOCATE 28, 12,e:PPINTGPf 
24): LOCATE 28, 1 1 .0: PRINTGRf <23>: C0L0P6 
10260 LOCATE 0,I4,0:PRINT'et d«s' 
18270 LOCATE 0, 1 6.0:PRINT--poi'-«au . cnra 
ue*:":L0CATE28, 16,0: COLOR ?t prihTGPI- £5 ■ 
:C0L0R2: LOCATE 28, 15.9: PPINTGP*' 26 ' : COLO 
R 6 

10288 LOCATES. 13. 0s COLOR 3:PPINTPPHI:C0L 
0R6!L0CATE 7, 1 9.0: PRINT ": 100 pointf" 
10298 LOCATES, 19, OiCOLOR 2:PRINTP9A*:C0L 
0R6ILOCATE 7, 1 9,9: PPINT- : 30 Points" 
10300 LOCATE©, 28, 8=C0L0P 1 : PP INTPVIhI: [ n 
LOP6:LOCATE7,20,8!PR1NT": 20 potntf 
10318 L0CATEO.21,8:COLOP Jl PP INTPP3CC0L 
0R6iLOCATE 7,21 , 0! PRINT": point* 
10320 LOCATE O,23,0:COLOR2:PPINT-APPUVEP 
>UR -::COL0P 0,3:PRINT-ENTPEE'::COLOP2, 
9:PRINT- POUP CONTINUEP- 
18338 Af-INPUT(d) 
18348 CLS 

10343 COLOR6SL0CATE 8, 3, 8:PPINT-Vo US d«u 
r*Z comtruirt vos h»»feur«r» dans I'o 
rdrt c.a.d du haut en bas" 
18338 COLOR 6*L0CATE 8.3.8: PPINT-Voui au 
r«i trois uifi pour rcuinr. Et c* n 

'•ft pas dc trop au«e l«i viciiu><<im veil 
* courtnt aprai" 

10353 LOCrtTE 8,9,0:PPINT"H»ii vous POur»- 
«1 les (eraser '10pt> en fanant toaber 
1<S ajorciauo du haabur^cr" 
I0360 LOCATE 0. 14.0:flTTRBl. I t C0L0P1 t PPIN 
T-BONNE CHANCE*:ATTP80,6 
10370 LOCATE 8, ! 6. 0: C0L0R4: PPIN1 "P. Si -; J 
COLOR 6iPRINT-N«c Donald I Co n'ont <u ' a 



TO 7 
MO 5 




SUR -;:COLOR0, SiPRINT'ENTREE* :C0LOR2,8 
10385 IF A«-CHR»(13) THEN GOTO 260 
18398 GOTO 18375 

10999 ' HONTEE BANDIT 

11080 IF C-l THEN GOTO 1B1B 

11818 IF C*4 AND ' - CH>-5 AND H< = 12> OR <H 

>-16 AND H<-23> OR i'H>-27 AND H<>34)> TH 

EN IF X>H THEN LOCATE H,C:PRINT- 'tLOCAT 

E H,C*1:PR1NT" ":H-H-1 : LOCATE H,C:COLORB 

Z:PRINTCR*(RG):LOCATEH, C-l : COLOR BMiPRIN 

TGRfCGR):COT0 1818 ELSE GOTO 11013 

I 1814 GOTO 11028 

11015 LOCATE H.CfPRINT* *:LOCATE H,C*HP 

RINT" *:H-H-HLOCATE H.CSCOLOR BZiPRINTC 

Rf<RC)JCOLOR BHtLOCATE H, C*l : PRINTGRKCR 

>:GOTO 1010 

I1B2B IF .:■• AND <«H)=5 AND H( = 12> OR (H 

>-16 AND H<»23) OR (H>-27 AND H<=34>) TH 

EN IF X>H THEN LOCATE H,C:PRINT* "JLOCAT 

E H,C*HPRINT- -:H-H*i:LOCATE H,C:COLDRB 

2:PR]NTGR*<RG):L0CATEH,C»i:C0L0R BH:PRIN 

TGR*(GR):GOTO 1010 ELSE GOTO 11825 

11824 GOTO 11830 

11025 LOCATE H,C:PRINT" "ILOCATE H,C»HP 

RINT* *:H-H-HLOCATE H,C:COLOR BZJPRINTC 

RSCRG):COLOR BMiLOCATE H,C*i :PRINTCR«(CR 

):GOTO 1010 

11038 IF C»I4 AND <<H>=5 AND H<-12) OR ( 

H)=I6 AND H<-23) OR CH>=27 AND H<»34)> T 

HEN IF X>H THEN LOCATE H,C:PRINT' -:LOCA 

TE H,C*i:PRINT* ':H-H*1 ILOCATE H.CiCOLOR 

BZ:PRINTGRS(RG):LOCATEH,C*i:COLOR BU:PRI 

NTGR«(CR):GOTO 1818 ELSE GOTO 11B33 

11934 GOTO 11848 

11835 LOCATE H,C:PRINT" "ILOCATE H.C-HP 

RINT" ":H-H-i:LOCATE H.CiCOLOR BZ:PR1NTG 

RS(RG):COL0R BMiLOCATE H,C*1 :PRINTGP<<CR 

):COTO 1818 

11040 LOCATE H,C*!:C0L0R4:PRINTCRKI3)iC 

•C-l ILOCATE H,C:COLORBZ:PRINTGR*(RG):LOC 

ATE H,C*i:COLOR BU: PRINTCR*(GR>: GOTO 181 

8 

11999 ' A DROITE BANDIT 

12888 IF H=37 THEN GOTO 1818 
12810 IF C*K>2 AND C*!03 AND C-IOIB A 
ND C-HOIS THEN IF Y>C THEN LOCATE H,CtC 
OLOR 4tPRINTCR*(13)!C-C-i:L0CATE H,C:COL 
0RB2:PRINTGR*iRG): LOCATE H, C*l iCOLORBHiP 
RINTCR(<CR):GOTO 1818 ELSE GOTO 12615 

12814 GOTO 12828 

12815 LOCATE H,C*1 : C0LOR4:PR]NTGR*< 13»"C 
-C-l: LOCATE H.C:C0L0RB2: PR]NTGR<<RG)iLOC 
ATE H,C-i:C0LOR Bu:PRlNTGRt (GR) t GOTO 101 


12020 IF (H>-2 AND H<-4> OR <H>-I3 AND H 
<-15> OR 'H>=24 AND H<»26> OR tH>-35 AND 
H<«37) THEN LOCATE H.C: C0L0R4:PR|NTGRI< 
13) ILOCATE H,C-i:PRINTGR*(l3>:H»H*HL0CA 
TE H,C:COLORBr:PPlNTGRHRG):lOCATE H,C*1 
tC0L0RBU:PRINTGR*'GR):COTO 1018 
12036 LOCATEH,C:PRINT* ":LOCATE H,C*1:PR 
INT" ":H-H*HLOCATE H, C:COLORBZ:PRINTGR» 
<RG>IL0CATE H.C+HCOLOR BHiPRlNTGRS <GR>: 
GOTO 1818 

12999 ' DESCENTE BANDIT 

13800 IF C»20 THEN GOTO 1810 

13818 IF C«4 AND <(H>=3 AND H^-12) OR <H 

■•-16 AND H<-23'< OR >H>-27 AND H<-34>> TH 

EN IF X>H THEN LOCATE H,C:PPINT" "SLOCAT 

E H,C*i:PRINT" "tH-H- I :lOCATE h.C:C0L0RB 

2:PRINTGR*<RG):L0CATEH,C»l:C0L0R BWiPRIN 

TGR*(GR):COT0 1810 ELSE GOTO 13815 

13014 GOTO 13028 

13815 LOCATE H,C:PR1NT* -ILOCATE H,C*HP 

RINT" "IH-H-HLOCATE H,C:C0LOR BZ:PPINTG 

RS(PG):COLOR BMILOCATE H,C-1 i PRINTGR*<GR 

i:GOT0 1018 

13828 IF C-9 AND <<H>=5 AND H<=12) OR (H 

>-16 AND H<»23) OR <H>«27 AND H<-34)> TH 

EN IF X>H THEN LOCATE H,ClPRlNT" "tLOCAT 

E H,C*HPRINT" *iH-H*HLOCATE H,C:COL0R8 

Z:PRINTGR*CRG):LOCATEH,C'l! COLOR BHiPPIN 

TGR*(GR)!GOTO 1010 ELSE GOTO 13825 

13824 GOTO 13838 

13823 LOCATE H.CiPRINT" "tLOCATE H,C*|:P 

RINT" "TH-H-HLOCATE H.CiCOLOR BZiPRJNTG 

Rf(RG):COLOR BMiLOCATE H,C*1 :PRINTGR«(GR 

):GOTO 1818 

13838 IF C-14 AND < ' H) =5 AND H<-12) OR < 

H>-16 AND H<-23) OP (H>-27 AND H<=34)> T 

HEN IF X>H THEN LOCATE H,C=PPINT "ILOCA 

TE H,C*l:PRINT- "iH=H*l : LOCATE H.CiCOLOR 

BZ:PRINTGR«(RG<:LOCATEH,C*l: COLOR BHiPRI 

NTGRS<GR):G0TO 1018 ELSE GOTO 13833 

13834 GOTO 13040 

13035 LOCATE H,C:PP1NT" -iLOCaIE H,C*HP 

RINT" "iH=H-i:LOCATE H.CiCOLOR BZiPRINTC 

RKROiCOLOR BMILOCATE H, C* 1 : PPINTGPI. GP 

>:GOTO 181B 

13840 LOCATE H, C : C0L0P4 : PR 1NTGRI < 1 3 > 1 C-C 

- 1 : LOCATE H, C : COLORBZ: PRI NTGPS . PC > 5 LOCAT 

E H,C»i:COLOR BM: PP1 NTC.Rt'GR > : GOTO 1818 

13999 ' A GAUCHE BANDIT 

14880 IF H=2 THEN GOTO 1810 
14010 IF C*K>2 AND C*l<>3 AND C-1018 A 
ND C-I013 THEN IF Y>C THEN LOCATE H.CiC 
OLOR 4tPRINTGRI<I3>it = C*HL0CATE H.CICOL 
OPBZiPPINTGRttRC) ILOCATE H, C-l : COLORBHiP 
PINTGR*'GR):COTO 1919 ELSE GOTO 14013 

14014 GOTO 14020 

14015 LOCATE H, C*HC0L0R4lPRINH.R|. I 3 >!C 
-C-I ILOCATE H,C:COLORBZ:PRINTGR*(PC':LOC 
ATE H.C-HCOLOR BU: PPINTGRIiGR - : GOTO 181 


14926 IF <H>«2 AND H< "4 ) OR <H>-I3 AND H 
^-13) OR iH>"24 AND H<-26) OP <H>»35 aND 
H<-37) THEN LOCATE H. C:C0L0R4:PRlNTGRl< 
13' ILOCATE H,C*IiPRINTGRI<13'iH-H-JfL0CA 
TE MjCitOLORH.-lPPINIGRt' PC. HLOCATE H,C*I 
:COLOPBMtPPINTGRIi GPnGOTO 1818 
14630 LOCATEH.CiPPlNl" "ILOCATE H.T-HPR 
INT" "!H=H-I ILOCATE H. C t COLOPBZt PR 1 NTl.H 
■pr..!LOCATE H.C-UCOLOP BHtPRINTGRHGR'! 
GOTO 1810 

15888 ' FIN 

I'.hui i i '. 

15002 LlNE<8,0*-f 39.0'GRK26<.2t LINE >.0.l 

'-(39. I >GR«>25»,7 

15083 LINE (0,23'-- 39. i' 7 'GPK25 '.7ILINE<0 

.22>-<39,22)GR»<26>.2 

13804 FOR 1-2 TO 20 SIEP 2 

13883 LOCATE 8, I: COLOR 2:PRINTCR*' £6 "LO 

CATC 39, I iPRINTCRi '.'6 1 1 COLORTiLOCATE 9.1- 

1 i PPINTGPI (25.: LOCATE 39, t *l iPR INTCRf C23 

• i NEXT I 

15886 FOR 1-3 T03I STEP 28 

13887 LOCATE I , 3i C0L0R3:PRINrPPHI 

15888 LOCATE ',6tC0l0R|iPRtNTMM 



Suite page ' 7 



MOTS CROISES 



Amis cruciverblstes, bonjour! Vous avez perdu gomme, 
crayon, papier?... Quelle importance avec ce pro- 
gramme muititache, qui va faciliter la vdtre! 

Jose TROGNON 

Ce programme contienl trois modes d'utilisation C'est un logictel 
exploitable, d' usage pedagogtque. La premiere partie est une ulilisa- 
lion directe de la gnlle. stockee en datas (solution et definitions). 
La seconde partie permet de fappeler une grille slockee sur cas- 
sette. Le mode creation (3eme partie) genere des grilles stockables 
sur cassette. On peut aussi constituer une bibliotheque de grilles 
(solution t definitions). 
DDEROULEMENT DU JEU: 

Toutes les saisies soot controlees (risque d'interruption tres faible) 
et se font dans la grille meme Le programme demande le sens et 
les coofdonnees de la premiere lettre du mot a inscrire. Seules ces 
coordonnees sont acceptees. L'ordre d'inscrire est donne, un point 



d interrrogation rappelle le debut decnture. La tin d'ecnlure est de- 
lerminee automatiquement el fes contrdles sont imediatement de- 
clenches (mot * grille complele). En cas d'erreur. seules les lettres 
qui viennent d'etre inscrites sont effacees. Tous les 10 essais et en 
presence dune erreur, il est possible d'obtenir la solution. Lorsque 
la grille est complele, I'ordinaleur le signale et le jeu sinlerrompt. 

2) APPEL DUNE GRILLE ENREGISTREE: 

Si Ion a opte pour le mode n B 2, il suffit de donner le nom de la 
grille et de preparer le lecleur a I'endroit voulu. Comme dans le 
mode 1. les cases noires saffichent et le jeu commence. 

3) CREATION: 

Les inscriptions dans la grille se font comme dans le mode I. Les 
cases noires sont imprimees par *" ". On peut stopper I'ecriture par 
RETURN'. Apres remplissage de la grille, si Ion repond "N" a la 
question "Voulez-vous les datas de solution?", on precede alors a 
lenregistrement des definitions en vue d'un stockage sur cassette. 
Le format presente est de 10 x 10 mais rien n'empecne de creer 
des grilles d'un format inferieur en completanl les vides avec des 
cases noires. 




^ 



29 REM • 
79 REN • 
«B REM ■ 



Bona obdi :>. 



1498 IF(S*--H-RHDC-9)ORfS*-'V-r«IIL»9>T>CMH30 
1598 I""" 

isie i 



I IF] 



'-theni529 



commodore f* 

VEPTEHtPE *4 



jose troc*.cm 
69 REM • 
78 rem • 

■'•:.■ • 

!<M REM* * 

119 PEM««MMM»**M**«M*MMMM 

• ••* 

• ... ■ ■•• PRESEMT8TI0H ••• 
mi ftn •••••»*••»•••«•••••* 

• •■•':•., 

tee print-it 

ira printtbf'.i4'.-»wts efioi - 

180 PPINT"«.E PROGRRMME CONTIEHT UC GRILLE, 

ise print-vous bvez lb possibilIte de lb modifier.-. 

299 PRINT-POUR CELA-UNE PBPTIE Wj PPOGPBMME PEPMET*. 
219 PRINT-pE DETERMINER RPRES LB CFENTIOM D'UNE 
229 PRINT-GRILLE LES VBLEURS DE DBT9 CORRESPONDNHT-. 
239 PRIHT-flUX CBSES MOIRES ET Ft LB SOLUTION, "i 

249 ppint-il vcus resterb slops b changer les" 
259 primt-dbtbs des definitions.* 
268 print -.wToutHEs specifies -r 

279 PRINTHODE CREBTION 

289 PR1NTH9I-CBSE NOIRE *•*• 

299 PRIKT-HW-FIN B'ECRITURE *£TURN-»" 

389 PRINT* JEU " 

319 F*INT--«t»-CORRECTI0N «NST/DELtr 

328 RRINT-m GRILLE PRG 2 GRILLE ENREGISTREE- 

339 PPINT'3 CREATION * • FIN." 

349 PRINT-»VOTPE CHOI/. 7T 

359 GETFtf IFB*»-*THEN339 

369 IFR***«-TMEHENI) 

379 F^Ihn-«MMM9H*ManMaMM*M*PnTIENTEZ SVP. , . -, . GOSUB428 

389 IFR»»-1-THEH1340 

399 IFR*--2-TH£m379 

499 IFB*-*3*THEH29S9 

439 REM* hCTin.ISffTIpH DES VARIABLES • 



459 H-1196 P-55373 CM-16J 

468 FCKI«8T09 

478 F0RJ-8T09 

488 Bfl. J>-M «(I,J>-P D< 

499 N-H+2 F-*R*2 

599 NEXT- 

518 »=N-S3 P»F*69 

529 NEXTI 

-.311 arruw 



S19 «TS* IF5*---THEH619 

620 IFS*O"H"flM0S»O'V-HKDS»<; 

539 PWIMT^ 

549 IFS*"-E-THEN*589 

SOB FBlMT-l 



ER*9 TR-9 Pl-8 F-2^ 



»;■-.--■: "_-- 
1 WILLES- 
nCEXs (m/vj ' 



x»#c ■ 



•H»Ht]«€ ' 
669 OETM IFB««"TT€>««9 
678 »M*SC'B*/ IfB<6T.0eB>74THEW66e 
689 L««SCfW )-65 

-J39 Pf IHTB* 

719 OETC* IFCV. V -TMEM719 

?29 C>«3C'C*> IFC1480PC> , i7THEM718 

739 CVH.'.Ct> 

TAD PPIWTC* 

759 IF'»W(L.CJ-1f J HII3fM->TME»049 
769 IF'HV'L. 
779 RETIJRH 

UHI>Mlllft>l>M*UM*IHMMmi 
739 FEU* flFFICHRGE OE LB OPIllE - 

599 FEH«»«4»»»»»»»»»» •*••••••«« ■•tin 

319 PPltft-3". PG*ETi3281 - 7 

329 PPIHT'Mt*ae*§ *!■ »;■ »?■ »• »'.■ »€> 

339 PPIKT-W. r r • .- t T-^-^r - .' 

549 PPIHT-sH»l I ) I I I I I I I I- 

359 RPIWT-m y \ * * v *■* *■■+-*■ 

rrn PRitiT-N r t t * 1 t > * » » i* 



'IWlKf" 



- ^THEM549 



310 PRINT'-II- 
?28 PRIIfT-*! 
939 PPIMT-HH 



I 



979 prnm~nv— t— i 

399 PR1KT"»«I I 

999 PRINT-HI— t-H 

1999 PRII'T-3191 I I I I I J I I I I 

1919 PP1WT-W> t- ) » 1 t i | ( ( |* 

1929 PPIHT"ai9i I I 1 I I I I | I | 

1939 PRIHT'W ■''■■■■ -■-. •■ i .-]- 

1949 PETi^V 

1958 RErW«»>a*H*«a«aa* ••••••••*■• 

1969 REJW HFFICMPoe EM CRERTIOH 



■RINT-1 



U88 F0P»:-irci29e ic/tk 

III9 PRIMT-1 

1128 F0PJ-ITO298 ME/TJ HE/TI 

1138 P0*Efl'L,C>,63 PQKEBa.O.2 

1148 Pl-42 P2-I3 GOSUB9778 

1159 IFR»-CK>f'n)TMEMREIIJPl. 

I 169 F^(SC<Rf>-64 

1179 IFfl042THENF«I68 



himscrivez lE nor • 



; :<* 



IF8I 



H249 



1198 IFrtC"28««K>9THEHC-C-I P*EB<L .t < , 32 WI01 149 

1289 IFRC-299MDC-9THEN1139 

1219 POKEna.O.F PtXEBa.C).9 

1229 IFC-STHEHRETiJCH 

1238 C*C*1 GtJT01I49 

1249 REH INSCRIPTION VEPTICfiLE 

1258 IFR*-CHR*<13iTM£NRETiJRH 

1268 F-«SC<9»»-64 

1778 IFrC-42TH£HF-168 

1288 IFFC-29»fl)L>9THENLH.-l PGfEft'L ,C«. 32 GOTO 1 149 

1298 IFRC-29HHDL-9THEMI138 

1388 PWEfla.O.F P0KEBa.C>,8 

131B IR«9THEHPETP#N 

132S L»L*1 COTOIlie 

1339 >tr»>«"«""mMMin.i..«...M 

1349 ROW ROUTINE DC JEU 

1958 REHHI«MH««Htmil 

1969 G0SUB3769 GOT01498 

1379 REfl GRILLE D«EOISTREE 

1398 IMPiJT-:HCf1 DE LH GRILLE". MOI 

1399 GOSUB9619 
1499 GOSJJB799 

1419 REM ••• FFFICHFWC DES CWSE3 t»IR£S ••• 

1429 FQRI-8T09 FORJ-9TOS 

1438 IFRK<I, J)-169TMEMP0r£ft'l. J).lfc8 

1448 HEXTJ NEXTI 

1458 0OSUB1958 005UB559 

1468 IFW:fL,C>-ie8TMENl«58 

1478 IFSt--H-HNDT;(L.C>-IHMIIRt:':L,C:.|l-I69THE>t1459 

1499 IFSt--V-HK0E<L.C>-lflNDPK'L'I,Cy-I68THEttl459 



1538 
1569 
1570 



1638 
1648 

\6SH 



1779 

: ;-.-■■ 
1799 



19*39 
1869 
1878 



I93fl 

I ■•:-: 



i»-ii!r ;l :=-ivEZ le f»T 



iP5f-H-HNDPra 

IFS«--V-nKDFT(L- 
GOSljei959 

F0FI=1T04 
FPlllT-4 

-■">! -I ''JICO r,E: Th 

F P It IT " I 1 1 l ll lllll ll I LL IW»W.»W»....H-.H 

FrejTiiOZeO ICXTJ HEICTI 

TP=TR*1 ,-,— 

IF3f-*V-THEH17£e ^^ 

iFDa.O-ITHEIC»C*l rj>73i/B29W G0T01628 

P0KEFta.Cf.63 POf.EB'L.C>.2 ■ 

^^ 
IFflC=.29fttK09THEH173e ^*-* 

1 FHC =2WtHDC=9THEII 1 638 
F-ASC<Rf>-€4 

POKEfta.C'.F FOfEB'L.C^.9 
IFPK'L C*1>=169THEH1338 
IFC«90RFK(L.C'1) = 169THE1I1938 
C=C-1 IFEa.C) = ITt«»l698 

PEM CCRRECTIOH HORIZONTflLE PftP IMSI/DEL 

IFPEEkfflfL.C>-2)=l69CRC*90RDrL.C-l>-lTHEN1638 

C-C-l -FOKEfia.C*] >.32 PDHHCL.O-63 GOT01648 

PEM IHSCRIPT1CM '/EPTICftLE 

IFB(L.C>-1TMEML=L*1 GOSUB295800T01779 

P0KEFKL.O.63P0KEBCL.O.2 

PI =63 CJKUB3379 

PV-fl<L.C)-49 

!FIC<8nHILOeTHENie98 

I FHC-29BMrx=9THEt( 1 789 

F"HSCff»)-64 

POTER'L.O.F P0fEB(L.C>.9 

IFPr:<L*l.C--169TH£H1939 

IFL=90PPK<L*1.C;-169THEH1939 

L=L*I IFDa.C)'lTHEH1339 

PO-Efi'L.O.63 GOT01798 

PEft COPRECTIOH VEPTICRLE PHR INST/DEL 

IFPEEK<P.a.C)-98>-168ORl.-90RD<L-l.C)«lTHEN1789 

L=L-I Ft>-ER'L*I .C.i.32 POfEfia . C > • 63 COT01799 

PEM»*»« fliCJJILLPftE »*•»• 

GOSUF31 19 GO^JE3249 Gr«UB2878 G0S1JB2979 GO5UB2708 0QT01 459 

^ ............................... 

PEm EFFflCEtlEHT PF»>TIE DROITE • 



6N\M°° 



OB^ 6A 



2919 
2928 

2839 
2349 



RETURN 

PE-1 TESTS DE SORTIE 
IF'C-90PPV'L.C>-169>Tneni939 

. RETl«M 

J IFa-90PPf<L.'. ■=169>'HEJIi939 
2969 RETURN 

2979 RE*1«*»*»-«M*** »»*»»•*•*•••*»•• t«* 
2989 PEW" CREATION D'lJHE GRILLE • 

?999 PE^-**-**** .*»•---•*»-••••«*-•-•-• 
2199 G0S>JB799 
2119 &CT5UBI948 TOWS 559 WSUB 1978 



■VENCORE "XOVN)*, 



2149 
21S8 
2169 
2179 
2189 
2199 
2299 
2210 
2229 
2239 
2240 
2259 
2269 
2279 
2239 
2239 



2339 
2349 
2758 
2369 
2379 
2339 
2399 
2498 
2418 
2429 
2439 
2448 
2458 
2469 
2479 
2438 
2498 
2599 
2519 
2529 
2538 
2548 
2559 
2569 
2579 
2398 
2598 



.PRINT 



■ 00T02299 



GETRt IFft*---THEN2138 
!Fft*-"0*THEH2U9 
]FRf--H-THEMGOSUB23ee 00T02178 
0OTO2139 

r.r.i.i;';:-i].-. 

PPItir-n»»»*H:tlREG]?TFtN£MT DES DEFINITIONS* 1 PRINT PRINT 

F0PI-9T99 

WINT*»>«*p»-t:J*>EiJIiTPEKEtn DE LB DEFINITION 

PRIIir-NORIZONTFCE -;I.' '75 CBPRCTERES HBXlrtJII)* 

INPUTDHJ'I. !FLEH'DM*'I>»75TNEH2288 

ppntT-iMBiiiai-wmcctyiPnEZ-vous 7 (Ovm)". 

GETR* IFRtW"THEt(2249 
lFfH«T>*0T4'PP*^>"M "T>CN2249 

F0PI.9T09 

PPINT-B19W-EI47EC.ISTREMEHT DE LB DEFINITION ' i 

RPINT-VERTICBLE ".I." <73 CRRPCTERES -BXlr«JN> -,:PPINT 

IHPUTBVftf' IFLEN'DV*<r''>7->THEN?29e 

F*!tn-a>-«9«99»>»-»tOIFIP»*E7-'/rjt^. ? '.0/N>*. 

OETRf IFflt-"THEH2339 

IFB*O-0-BHDft*<>-N-THEH2339 

IFB>^' N'THE>fyiHT '«T»>TR»*R>t>T->l - GOT02299 

PRINT PRItlT . IHPI.IT-NOH DE LB GRILLE". NO* PPItlT 

PPIirr-7/EPIFIEZ LE LECTEUR DE CBSSETTES' PRINT PRINT 

G0SUB3479 

00T0I38 

.............................. 

PEM* VBLEUPS DE LB SOLUTION • 

F-EM ............................. 

PPINT-rW/OULEZ-vriUS LE5 DFITfK DE VXUT ION POUR* 

PRINT-MODIFIER LE PPOGRHMME DE BftSE (0/N)?* 

GETFt» IFR»»-"THEH2468 

I Ffl*0 "0-BNDBf O - N ■ THENZ468 

[FR4--N- THE NR£ TURN 

00T02568 

F0RI4VTD9 

F0RI-9T09 

PY'.l. IJ-PEEKfB'r. J)) 

NEXTJ 

NEXTI 

RETURN 

PFIHI'I IIUMII I W BIHS DE SOLUT [OH- PRINT 

F0RI-9T09 

F0PJ-9T09 

PKt(l.J>-* -^TRIfRKd-J)) 
I PK«(l,J>-RI0MTt<PK«(I.J),4) 
! PPIHTPKi/I.J),- "; 

( PEN 
) NEXTJ 
1 MEXTI 

> PRINT PRIHT-BPPUVEZ SUB UNE TOUDHE* 
1 GEtftl IFRt--'THEM2668 



2699 INPUT": 



. EST LE NOW DE LB GRILLE". NGI 



2729 
2739 
2748 
2759 
2769 
2779 
2788 
2798 



Ml 

REM SOLUTION 

0O9JBI979 

IFTP>]0fll(DEP>9TMEM2^48 PEM 19 PROPOSITIONS F BUSSES 

RETURN 

.E2-V0U3 LB" 
.UTION ?<fVN>- 

OErBt IFA*-"THEH2768 

IFB»O-0"ftHDBt<>-II"THEH2768 

IFM--M-TMENRETURH 

COS! /B799 

F0PI-9T09 

FOPJ-8T09 
2829 POfERM,)).Fr<I,J) 
2839 NEXTJ 
2849 NEXTI 
2859 EMD 

2968 REM ••••*••••*■•**•••*••••*• 
2879 RErt ••*• VBLIWrlOH MOI ••■* 

2999 OO^JB195e 

2989 IFERogtHEMBETURH 

2918 IFS«-"V"THEHMV<L.C)-1 0OT02948 

2928 MH(L.O-l IF<C<:>9BHeRV'L.C)<>l68>TMEMD(L.C>-I C*C*1 00T02928 

2938 D<L.C)-1 MH<L.C>"1 RETURN 

2548 IF(LO9RMDRra,CK>169>TMEM0a.Cl.l Lt«l GOT02949 

2959 D(L.C)-1 MV<L-C)-l RETURN 



2969 REM • 

2979 PEM »W EFFBCEMENT DES EPPEURS ••• 

2999 REN ••?*•**•■••••*•••••*•••••••*•• 

2999 IFS»--V-THEH385e 

3989 IFD(L.C)-1THEK3828 
3810 POKEB<L.C>,32 
3929 IFC-9THENRETURN 

3838 IFPK(L.C*1>-169THENRETURN 
3848 C-C+l G0T03999 

3858 IFD<L.C)-1THEH3978 
3968 P0VEBCL.O.32 
3979 IFL-9THENREURN 

3988 IFPK<L*1.C>-I69THENRETURN 
3999 L-L*l C0T03959 

3199 REM 44»t»t**M*M**4*****l* 
3110 PEM ••» TEST FIN DU TEU ••• 
3129 REM M» GRILLE COMPLETE «•• 

3139 PEM •*•*■»*■•(•***•*••••••* 

3140 PR]^n"l«»99999»»»t*t»l«9i»»t«J*»**r, 

3158 F0R1-1TO3 PRIHT* "• NEXT 

3168 F0RI=9Tri9 F0PJ-8TO9 

3179 tmZKOMI*J»OPK<] ■ '>THEI*ET'.W 

3188 NEXTJ NEXTI JM-M1M _ M - BM - 

3219 OETRi IFM---THEH32I8 

3228 0TJT0139 

3239 REM «MtM-f-M»«*»*»4 • 

3249 PEM •«»» COMFTEUR D'ERPEURS »••• 

3250 REM •»•■»••-•*■■••••»»■«■•»-■«-• 
3269 ER=9 

3278 IFS*"-V*THDI3329 

3288 IfPEEK<fl(L.':>"5Fv:'L.CMHEtCR"ER*1 

3299 IFC-9THEHPETVRH 

3399 IFPK<L.C-l>168THENREIL*5t( 

3318 C'C-1 C0T03289 

3328 IFPEEffftfL.C !>■::•«■' I. .rUtC»CR»ERH 

■.-.:* m bthemo rum 

3340 IFPK<L-l.C) = 169THEt*^IURH 
3359 L-L-I GOTO3320 

3369 REM** »»»•»••••* «••• 

3370 REM* TEST CLAVIER • 
3380 REM**- »•*?•••«• •»•••*•••••»•••••• 

3399 GEIftt IFFH-'-THE)O390 

3409 BC-BSC(B«> 

3410 IFBC-2POPBC-P10RB(>P2THEtO439 
3428 IFBC<650RBr;>99THEtn390 

3430 RETURN 

3449 R-— " 

3450 RE-W ECPITURE BUR rflSSETTE 
3469 REN* SOLUTION ET DEFINITIONS • 
3479 PEM*<>*<*** •-*•*••• *•*•••-•-••••« 
3489 OPEN 1.1. 1, HO* 

3499 F0RI*8TO9 

3599 F0RJ-8T09 

3519 PRINTtl ,RK<1,J> 

3529 NEXTJ 

3539 >*Dai 

3548 F0RI-9TO9 

3559 PRINTtl. DHK I ) 

3568 NEXTI 

3578 FORI.9T09-pRINTII.nVl(I) tCXTI 

3589 CLOSE 1PE TURN 

3598 PEH»«. •**•*<• ••**•■•«•> *•«»• 

3699 REM* POUT I ME DE LECT'f'E » 

3619 PEM**->*********»* *•*•*•«*« 

3620 OPEN l.l. it. in. I 
3638 F0RI«9T09 
3649 F0RJ-9T09 
3659 INPVH1.PK<I.J> 
3669 NEXTJ 

3679 tUXTI 
3689 F0RI-8TO9 
36?9 INPirTil.DHt'IV 

3788 NEXTI 
37I0 F0PI-9T09 
3729 n*lJT*1.0V*(I> 
3739 l€XTI 

3749 aOSEI RETURN 

3759 Pf "•#..••••• i ........... ......... 

3769 PEM* LECTURE PES DBTFtS • 
7779 PE«»» •••••••«»••«•• 

3789 RESTORE 

3799 F0RU9IO9 FOP I-9T09 PEOtiP* ' I . ]. MEXTI NEXTI 

lOW FORI Din.' F-rnnpttfi . t«vri 

3818 FORI-0TO9 PEBPffJ*' I i -MEXTI 

3829 RETURN 

3330 PEM *****•*••••*•••(••»*.•■•**■«• 

3349 PEM MM FtFFICHfiGE PFFIMITIOH *•• 

3859 PEM ............................. 

3S«a IFS*--V-TMEN399B 

3879 F«INT-«I*>T««nrk*Mf»M««a**M-£FIIlirir>l i«tpi7i-«(I«e Ml. 

3889 rvuiT-mmmmmmm*m -ntu'i ■ 

3999 RETURN 

3990 PRINT")MMtkfa«*M*kT>T a T*Ma-kTa- a MEFlN[n(Jtl VERTICBLE '.CI. 

3319 FRim-'IC M lill l »»»*4J9«M>*J*9r . [ivt'i ■ 

3979 RE TURN 

3939 PEN*«*».***»**»»****«*»*.*»*»***a 
3948 PEM* DBTB3 GRILLE PROGRBNME • 

3959 REM********* !»•••• •••**••»* 

39f9 PEM **• SOLUTION ••• 

3979 DRTBI3, 18.4.9. 14. 1.29.5.21. 18.3. 168.15. 14.169.22.3.9.14,5 

3998 DBTB29. 13. 21, 3. 8-3. 19. 169.9- 14.5. 1 69- 2. 13. 3. 14. 169. 1.29. 14 

3990 DRTR29- 13, 12.3. 169.9. 168. 12. 169.3. 168. 18.5.13.1.18 1 7. 21. 3. 19 

4990 DOTB1.169.l3.5.20.16O.2l.l4.tS8.1M).t3.'>. \fM. 14. \W. 20.5 . ICO. 1 . 14 

4019 DHTR9. 14.9.28.9, 1.12.9. 19-5,19.29,169.5.12.21.169.168.3.5 

4029 REN * DEFINITIONS HCRI70NTrVES • 

-tO^O HBTBIL KST SOUS TENSION EN CE MOMENT 

4049 MTFlPRONrjtl - IL Ett FBUT P0«.»T PEUS-SIR 

4059 rfiIBMEMH0E2-l.ES FN in.MIT - DBMS IE VENT 

4060 PfiTBPEU - INSTPUCTION PCW l*C FfJMCriOM FtKNtBIRE 
4070 DfiTRELLE ONPULE 

4080 DfiTFWEPERES 

4090 DRTRENSEMBLE - IMDEFINI 

4199 DRTfiNOTE - PROHOM - PERIODE 

4110 DBTBMIS fl L'ORIOINE 

4128 DBTflVBRIBBLE D'ETHT - CMOISI - rfMt.»ISTPfll IF 

4138 REM * DEFINITION". VEPTICfiES • 

4148 DBTBIL EN FBUT PLUS D'UN - EPBTtZ- 1 FS RVTC VOS PPW*nNME". 

4159 Dmnnr;mrTinii LOOIOUI - pbrtif eniiepe 

4160 DBTfiCERTOINS ROENTS 
417B [WTBMODIFIE IE CCMPTEUR 

4IT19 DflTODEItUT DE L'HIVER - flPREVIill If»l T* FONCTIOH - PROMOM 

4198 DfiTFrUTUR - LETTPE r,REC«je 

4290 PBTBPOSSESSIF - IHTERROOBTIF 

4210 DHTBMILIEU DE L'OEII. - IL SEPT O IBHNER 

4220 PHTftPERIPHEPIW*: EN BNOLBIS - tlislPijrrirW CODE 

4239 WTflnflMMIFERE-. - APPflRt* 

REBDV. • 



FINDER 



Mesdames el messieurs bonjour. {Mesdemoiselles 
egalement!). La semaine derniere. I'infarctus vous 
guettait. cette semaine. c'est I'attaque assuree. 

DAN STEEREY 



Mode d'emploi: Si vous possedez I'assembleur BIG MAC. vous pou- 

vez taper le listing 1. sinon tapez !e listing Ibis de la facon suivanle 

CALL -151 < RETURN > 

6000: A9 13 85 38 A9 60 85 39 

6008: A9 9C 85 36 etc... 

Apres cet efforl digne d'un don, tapez CTRL-C suivi de <RETURN> 

puis 8SAVE FINDER, AS 6000.LS 4AE. 

Pour lancer le programme, tapez BRUN FINDER. 

Ce programme occupe les adresses 24576 (S 6000) a 25856 (S 

6500). II doit etre protege par LOMEM: 25856 ou HIMEM: 24576 au 




APPLE 



debut dun programme pour que le premier ne soil pas delruit. S*il 
est deconnecte par RESET, on le restaure avec CALL 24576. 
Attachez vos ceintures. nous nous envolons pour le Nirvana. 
Chargez voire programme favori et faites-le tourner, A la fin de 
lexecution. tapez CTRL-N suivi dun nom de variable utilise dans 
votre programme. Tapez < RETURN > et, deja. je vous sens pris 
d'un tournis de bonheur. Eh oui. sr par exemple vous aviez tape AS 
el que cette variable se trouve 10 fois dans votre programme, il 
aurait ete ecrit OCCURENCE 10. et le numero des lignes ou elle se 
trouve. Si votre variable est ESSAI. seuls les deux premiers caracle- 
res seront pris en comple. Pour le dimensionnement. essayez avec 
ESSAI(X.Y), la reponse sera ES(DIM). On peut se contenler decrire 
"AS (" pour un dimensionnement quelconque. Etes-vous conlenles? 
CTRL-V suivi d'une variable non dimensionnee. donne la valeur de 
cette variable au moment de I'inlerruption de votre programme. 
CTRL-L suivi d'un numero de hgne (ca varie des variables) vous 
indique ou, quand, comment, pourquoi, (j'en rajoule un peu) cette 
ligne est utilisee par des GOSUB. des GOTO, des THEN, des 



RZWWZZ. des TRCHAKK. des MLEUU (excusez-moi. je commence 
a delirer.) 

CTRL-A et CTRL-S lonctionneni comme Si cetaient des Heches 
TURBO, moteur 19000 cc. 56 cylindres en W 
Pour ceux qui en ont assez de taper POKE 33.33. utidsez mamie- 
nant ia touche < . et pour revenir en normal, utilisez ta louche > 
(n'oubliez pas de remettre voire louche sur r Apple apres utilisation) 
Les commandes <.>,<>. et < ! > (onctionnenl comme sur 
I'EDITEUR GENERAL de la semaine derniere. Si vous ne I'avez pas 
achete. SHAME ON YOU! 

Mais attention, un nirvana ca va. deux nirvanas, ca va. Irois nirva- 
nas, [onglent les boules aux deux gars! 
RESUME DES COMMANDES: 
CTRL-N : Occurence d'une variable 
CTRL-V : Valeurs des variables simples 
CTRL-V : Branchemenl sur un numero de ligne 
CTRL-A et CTRL-S : Turbo-fleches 
< et > : Poke 33.33 et POKE 33,40 



LST OFF 



— = = *,!, «■<,«, 6 ■,?,<.£.■,■, t,;, = = ===. 

(C> 1964 - DAN STEEREr - 

ET HE8D0&1C1EL 



I? 


Unprt 


m 


•ED24 


1H 


OUTDO 




•DB3C 


IV 


GETLN 




• FD4F 


?0 


GOBUFS 




•0330 


21 


ISLET C 




• E07D 


// 


KEYIN 




•FD1B 


23 


FPLQAO 


■ 


• EAF9 



24 PRNTFAC 



' LINADR = »0006 

' NUM = •OOOA 

* NUMH » «00GB 



• DIMENS 0=NORM,]>=D 
! • TYPE 0= 
l * DIMMEM ET TYPMEM 
I 

i DIMENS ■ 
. TYPE ■ 

' FLAG 



ENT. ,*=CHAINE 



39 


DIMM EM 


= 


•OOFS 


40 


TYPMEM 




• QQF9 




POSBUF 




tOO FA 


42 


SVX 




SOOFB 








• OOFC 


44 


PARNBR 


■ 


• OOFD 


47 
48 
49 
30 


NOMMEM 


= 


•02BO 




ORG 


♦ 4000 








SI 


INIT 


LDA 


£< DEPART 


32 




STA 


•0038 


33 




LDA 


£> DEPART 


34 




STA 


• 0039 


33 




LDA 


£<L1ST 


34 




STA 


•0036 






LDA 


OL1ST 


38 




STA 


• 0037 


3V 
60 




JMP 


•3EA 


62 


DEPART 


JSR 


KEVIN 


43 




CMP 


£»8I 


44 




BEO 


CTRLA 


AS 




CMP 


£•93 


44 




BEO 


CTRL? 


6/ 




CPX 


£•00 


60 




BEO 


SELECT 


69 




RTS 




70 
71 


SELECT 


STX 
STX 


NUM*1 


72 




STX 


FLAG 


73 




CLD 




74 




LDY 


£10 


73 


SELBCL 


CMP 


COMMAND, 


7b 




BEO 


SELCTN 



BPL SELBCL 



80 
81 


SELCTN 


TYA 
ASL 




82 




TAY 




83 




lOA 


PROCED*! ,Y 


84 




PHA 




83 




LDA 


PROCED.Y 


84 




PHA 




87 




RTS 




68 








89 


COMMAND 


HEX 


AF8C8EBCBE 


90 




HEX 


AAAIAE94 


92 


PROCED 


DA 


LSTOEP-I 


93 




DA 


REFLGN-1 


V4 




DA 


REFVAP-I 


93 




DA 


COMR-1 


9A 




DA 


DECOMP-1 






OA 


MONITEUR-I 


VH 




DA 


CATALOG- I 


99 




DA 


PUNDEP-l 


00 




DA 


VALVAR- 1 


1)1 








02 


CTRLA 


JMP 


DE8LGN 


04 


CTRLZ 


JMP 


FINLGN 


06 


• OCC'JPEUCES 


D'UNE VARIABLE • 


r,.. 








Cr* 


OCCUR 


LDX 


l l>J^ 






BNE 


0CCUR2 


1 1 




L[-A 


NUM'I 


12 




BNE 


OCCUR 2 





CMP 


£1 




Ei-JE 


OCCUR3 




LDA 


NUM*1 




BEQ 


BASIC 


0CCUR3 


LDA 


£-S" 




JSR 


•FOED 


8ASIC 


JMP 


«3D0 


ERREUR 


JSR 
CLC 


• FF20 




BCC 


BASIC 


» ENTREE 


OU NOM DE VARIABLE 


* A CHERCHER 




REFVAR 


JSR 


ECRIT 




ASC 


•NOM ' 




HEX 


00 




LDA 


£•>• 




JSR 


•FD6C 




TXA 






BEO 


BASIC 




JSR 


GDBUFS 




LDA 


£6 




STA 


•24 




JSR 


• FCIA ;M 




JSR 


•FC42 ;E 



' ANALYSE DU NOM ENTRE ET TYPE 



STX 


TYPE 


STX 


DIMENS 


STX 


NOMBUF*! 


STX 


NOMMEM 


LDA 


• 200 


JSR 


ISLETC 


BCC 


ERREUR 


STA 


NOMBUF 


LDA 


•201 


CHP 


£48 


BCC 


ANLBCL 


CMP 


£39 


BCC 


SETNOMH 


JSR 


I SLETC 


BCC 


ANALYSE2 


SETNOMH STA 


NOMBUF* 1 


INX 




ANLBCL INX 




LDA 


•200.X 


BEO 


ANLF1N 


JSR 


ISLETC 


BCS 


ANLBCL 


CMP 


£4B 


BCC 


ANALYSE 2 


CMP 


£38 


BCC 


ANLBCL 


ANALYSE2 CMP 


£'(- 


BNE 


ANALYSES 


STA 


DIMENS 


8EQ 


ANLFIN 


ANALYSE3 CMP 


£'«' 


BEO 


SETTYP 


CMP 


(.'■/.' 


BNE 


ERREUR 


SETTYP STA 


TYPE 


BEQ 


ANLBCL 


JMPFIN JMP 


OCCUR 



ANLFIN 


LDA 


NOMBUF 




JSR 


OUTDO 




LDA 


NOMBUF- I 




BEO 


ANLFIN1 




JSR 


OUTDO 


ANLFIN1 


LDA 


TYPE 




BEO 


ANLFIN2 




JSR 


OUTDO 


ANLFIN2 


LDA 


DIMENS 




BEO 


ANLFIN3 




JSR 


ECRIT 




ASC 


'(DIM)' 




HEX 


00 


ANLF1N3 


JSR 


• OAFB 




JSR 


»DAFB 



■ DEBUT DE PECMEPCHE 



LDA 


104 


t*l£ 


CHNVAR 2 


• CHAINAGE DE 


LIGNE APPLESOFT 


CHNVAR LDY 


£0 


STY 


POSBUF 


LDA 


<LINADR> .Y 


TAX 




LDA 


iLINADR) ,Y 


8EO 


JMPFIN 


CHNVAR 2 STA 


LIt*ADR«l 


ST/ 




LDY 


£1 


LDA 


<LINADP> .Y 


BEO 


JMPFIN 



' LECTURE DE L I CMC APPLESOFT 









238 


NOUVAR 


LDX 


£0 


1' p 


ECRIT 




239 




STX 


1 .V-Hi[ 




- • • ■ HON 


rROi/JE- 


240 




STX 


TYPMEM 


>IL- 


8D00 




241 




STX 


DIMMtM 


JMP 


DIP 




242 
243 


fucjar 


INY 
LDA 


'LINADP 


JSR 


ICMI l 




244 




BPL 


FNCWAR2 


LDA 


HUM* 1 




243 




CMP 


f I7B 


.rr-.K 


LINPR1 




244 




BEO 


CHNUM 


IM 


ICDII 




247 




CMP 


(131 




" OCCURENCE* 


248 




BEO 


CHNVAR 


Ml - 


00 




249 


i NDVAR] 


LOM 


p-rv-.L-nl 


IW. 


NUH 




230 




SCO 


FNWAR 



251 




JSR 


I DENT 


232 




JMP 


NOUVAR 


733 


FND"^AR2 


BNE 


FNDVAR3 


234 




LDX 


POSBUF 


*S3 




BEO 


CHNVAR 


234 




JSR 


I DENT 


23? 




JMP 




23B 


FNDVAR3 


CMP 


£"• 


239 




BNE 


FNDVAR4 


240 




LDX 


POSBUF 


261 




BEQ 


GUILLEME 


7AV 




JSR 


I DENT 


243 


GUILLEME 


INY 




244 




LDA 


<LINADR) ,Y 


243 




BEO 


CHNVAR 


244 




CMP 


£'" 


24/ 




BNE 


GUILLEME 


268 




JMP 


NOUVAR 


249 


FNDVAR4 


CMP 


£'»' 


2/0 




BEO 


DOLLAR 


?iM 




CMP 


f/.' 


272 




BNE 


FNDVAR5 


V/'A 


DOLLAR 


STA 


TYPMEM 


2/4 




JMP 


FNCVAR 


273 


FNDWAR5 


CHP 


£'(' 


274 




BNE 


FNDVAR6 


277 




STA 


DIMM EM 


2/« 




JSR 


I DENT 


279 




JMP 


NOUUAR 



284 FNDVAR4 CMP £4B 



285 




BCC 


FNDVARl 


284 




CMP 


£91 


287 




BCS 


FNDVAR1 


288 




CMP 


£63 


289 




BCS 


CHAINE 


290 




CMP 


£38 


291 




BCS 


FNDUARI 


292 




LDX 


POSBUF 


293 




BEO 


FNDVAR 


294 


CHAINE 


STY 


SVY 


295 




LDY 


POSBUF 


294 






NOMMEM, V 


297 




INC 


POSBUF 






LDY 


SVY 


299 




JMP 


FNDVAR 


300 








301 


* COMPARAIS( 


DES VARIABLE 


302 








303 


1DENT 


LDX 


POSBUF 


304 




8E0 


IDENTR 


305 




STY 




306 




LDA 


£0 


307 




STA 


NOMMEM, X 


308 




LDA 


NOMMEM 


309 




CMP 


NOMBUF 


310 




BNE 


IDENTR 


311 




LDA 


NOMMEM* 1 


312 




CMP 


NOMBUF *l 


313 




BNE 


IDENTR 


314 








313 
316 
317 


• COMPARAISON 


DES TYPES 




LDA 


TYPMEM 


31 8 




CMP 


TYPE 


319 




BNE 


10ENTR 


320 




LDA 


01MMEM 


321 




CMP 


DIMENS 


322 




BNE 


IDENTR 


323 








324 


• AFFICHAGE OE la l-ar. TRO 


323 








326 




LDY 


£0 


327 


PRNB 


LOA 


NOMMEM , 1 


328 




BEO 


PRNFIN 


329 




JSR 


OUTDO 


330 




INY 




331 




BNE 


PRNB 


332 


PRNFIN 


LDA 


TYPMEM 


333 




BEO 


IDENT2 


334 




JSR 


OUTDO 


333 


I DENT 2 


LDA 


DIMENS 


336 




BEQ 


1 DENT 3 


337 








338 


• AFFICHAGE DE L'INC 


339 


• DIMENSION 




340 








341 




LDY 


5VY 


342 




LDA 


£0 


343 




STA 


PARNBR 


344 


IOEMTB 


LDA 


(LINADR) .Y 


343 




CMP 


£'(' 


344 




BNE 


IDENTB2 


347 




INC 


PARNBR 


348 


IDENTB2 


CMP 


C>' 


349 




BNE 


IDENTB3 


330 




DEC 


PARNBR 


331 


IOENTB3 


PHA 




332 




PLA 




333 




BPL 


IDENT84 


154 




CMP 


C*C9 


333 




BNE 


IDENTBS 


334 




LDA 


£■*■ 


■ "..' 


IDENTB3 


CMP 


£*C9 


338 






IDEMTB4 


339 




LDA 




360 


IDENTB4 


JSR 


OUTDO 


341 




INY 




362 




LDA 


PARNBR 


143 




BNE 


IDENTB 


344 




STY 


WY 


363 


1 DENT 3 


JSR 


PRNUM 


364 




JSR 


• DAFB 



• • UALEUR DES VARIABLES I 

( •■•■••■■•••■•■. *■■•••*••! 

I 

I VALVAR LDA «69 



378 


STA 


• 7 


379 ENDSMP 


LDA 


• 7 


360 


CMP 


• AC 


3BI 


BCC 


VAR2 


392 


LOA 


•6 


383 


CMP 


*4B 


384 


BCC 


VAR2 


383 


JMP 


BASIC 


384 






387 VAR2 


JSR 


VARPRT 


3B8 


LDA 


•A 


389 


CMP 


£•60 


390 


8CS 


VARINT 


391 


LDA 


»B 


392 


CMP 


£•80 


393 


BCS 


VARSTR 


394 


LDX 


£6 


393 


JSR 


•F94A 


394 


JSR 


PRNTFAC 


397 VAR3 


JSR 


•FD8E 


398 


JSR 


INCVAR 


399 


JMP 


ENDSMP 


40 VARPRT 


JSR 


REALLD 



JSR OUTDO 
LDA «B 
JSR OUTDO 



423 
424 
423 



LDA 


f/.' 


JSR 


•FDEO 


LDX 


E6 


JSR 


•F94A 


LDY 


£•1 


LDA 


(*4),Y 


TAX 




DEY 




LDA 


<*6>,Y 


CHP 


£•80 


BCC 


VARINT2 


PHA 




LOA 


£■-■ 


JSR 


♦FDED 


TXA 




EOR 


(*FF 


TAX 




INX 




PLA 




EOR 


£*FF 


JSR 


LINPRT 


JMP 


VAR3 


LDA 


£*•■ 


JSR 


•FDED 


LDX 


£6 


JSR 


•F94A 


LDY 


£•0 


LDA 


<*6> ,Y 


STA 


• 18 


LDA 


<*6> ,Y 


STA 


• 19 



448 


JMP 


VAR3 


449 






430 REALLD 


LDY 


£•0 


431 


LDA 


<*6> ,Y 


432 


STA 


•A 


433 


INY 




434 


LDA 


1*6) ,Y 


433 


STA 


•8 


434 


LOA 


•4 


437 


CLC 




438 


ADC 


£•2 


439 




• 6 


440 


LDA 


•7 


461 


ADC 


£•0 


462 


STA 


• 7 


463 


TAY 




464 


LDA 


•6 


443 


JSR 
RTS 


FPLOAO 


447 INCVAR 


LDA 


• 6 


44B 


CLC 




449 


ADC 


£*3 


470 


STA 


•6 


471 


LDA 


•7 


472 


AOC 


£•0 


473 


STA 


• 7 


474 


RTS 




473 







■ BRANCHEMENTS SUR UNE LIGNE I 



REFLGN 


JSR 

LOA 


LIGNE 
£•£• 




JSR 


•FD6C 




TXA 






BNE 


REFLGNI 




JMP 


BASIC 


REFLGNI 


JSR 


GDBUFS 




JSR 


• DAFB 




LDX 


103 




LDA 


104 




BNE 


CHNLGN 2 


CHNLGN 


LDY 


(0 




LDA 


<LIN»DH 




TAX 






LDA 


(LINADR 




ONE 


CMNLQN? 




JSR 


• DAFB 




JMP 


OCCUR 


i PfJI 1*1, 


STA 


LINADR' 



301 


STX 


LINADR 


302 


LDY 


£03 


303 L6NBCL 


INY 




504 LGN8CLI 


LOA 


(LINADR) ,Y 


50 5 


BEO 


CHNLGN 


306 


CMP 


(171 ; 


50 7 


BEQ 


LGNTST 


508 


CMP 


£176 ; 


309 


BEO 


LGNTST 


510 


CMP 


£196 ; 


311 


BNE 


LGNBCL 


512 LGNTST 


LDX 


C«FF 


313 






514 • COMFARAISOS 


DES NUMEROS 


313 






516 CMPBCL 


INY 




317 


INX 




518 


LOA 


•200, X 


519 


BEO 


NUMTRV 


520 


LDA 


(LINADR) ,Y 


521 


BEO 


CHNLGN 


522 


CMP 


•200 ,X 


523 


BNE 


LCN8CL1 


524 


BEQ 


CMPBCL 


523 NUMTRV 


LDA 


(LINADR) ,Y 


526 


BEO 


NUMTRV 2 


527 


CMP 


£' :' 


52B 


ENE 


LGNBCL 


529 NUMTRV2 


STY 


SVY 


330 


JSR 


PRNUM 


331 


LDY 


SVY 


532 


JMP 


LGNBCL 


533 






535 • CONTROLE DU 


LISTING • 


337 






538 RUNDEP 


JSR 


ECRBUF 


339 


ASC 


■RUN' 


340 


HEX 


00 


541 


LOA 


£»BD 


342 


RTS 




543 LSTDEP 


JSR 


ECRBUF 


544 


ASC 


■LIST* 


545 


HEX 


00 


546 


LDA 


t«A0 


547 


RTS 




548 






549 LIST 


JSR 


• FOFO 


330 


CMP 


£»BD -f 


331 


BNE 


RTSL • 


332 


LDA 


•C0O0 


333 


CMP 


£»9B 


334 


BEQ 


LIST4 


353 


CMP 


£»B0 


536 


BMI 


RTSL 


557 


BIT 


•C0I0 • 


55B LIST2 


LDA 


•cooo • 


339 


CMP 


£»BD 


340 


BEQ 


LIST3 


341 


CMP 


£•98 


362 


BEQ 


HST4 


363 


CMP 


£•80 


364 


BMI 


LIST2 


363 RTSL 


RTS 




366 LISTS 


BIT 


•CO 10 



349 RTS2 JMP BASIC 

370 

371 NOMBUF HEX 000000 



374 
375 
576 


• SAUT EN FIN 


DE LIGNE ■ 








377 


FINLGN 


LOY 


• 24 


578 




LDA 


<*28>.Y 


579 




INY 




380 




INY 




381 




CPY 


• 21 


382 




8CS 


FINLGNR 


sea 




STA 


•200.X 


584 




CPX 


£239 


383 




BEQ 
INX 


FINLGNR 


587 




INC 


• 24 


581 




MB 


FINLQN 


589 


F1NLGNR 


DEY 




590 




DEY 




591 




RTS 




392 








393 


• RETOUf 


EN DEBUT 


394 








395 


DE6LON 


LOY 


• 24 


396 




BEO 


DEBRTS 


397 




TXA 




39B 




BEO 


DEBRTS 


399 


DEOBCL 


DEC 


• 24 


400 




DEX 




401 




BEO 


DEBRTS 


402 




DEY 




40 3 




BNE 


DEBDCL 




DEBRTS 


LDA 


C»9B 


403 




RTS 




404 
407 
40 B 








• COMPRESSION 


FENETRE • 



412 




ONE 


LARGE 


.-■I ■ 








414 


• RETOUF 


A L* 


FENI.T 


613 








414 


OECOMP 


LOA 


(•26 


417 


l ,.i.-,.i in.- 


STA 


•21 


Aid 


RTWND 


LOA 


(13 


41 V 




JSR 


»F044 


A, 'II 




I i. 


• FC9C 


.-.,'] 




LDA 


37 


.■..',■ 




..' i 




623 




LDY 


(00 



Su/fw page 7 



LABY 3D 



LABY 3D permet & chacun ou presque de creer des 
programmes en trois dimensions, a sa guise. 



Laurent LONGRE et Luc METERY 



Mode d'emploi: 

Ce programme coniienl deux parlies: 

1)Une routine en langage machine (ligne 1 REM...), qui [race auto- 
matiquement la vision en perspective d*un couloir de iabyrinthe. a 
parlir dun point de vue precis (le Iabyrinthe peut etre soil place en 
memoire. soit dessine sur la droite de lecran ). 



Implantation des codes-machine: 

-taper une ligne 1 REM, suivie de 448 caracleres "0". 

•enlrer le programme de la ligne a la ligne 70. faire RUN. puis 

entrer successivement chaque code du programme. En cas d*er- 

reurs, taper "- 1"; si le programme s'arrete par erreur. taper GOTO 

10. 
-effacer les lignes 7 a 70: la routine en langage machine placee 

dans ta ligne 1 REM est utilisable par un (RAND) USR 16516. 
2) Programme de jeu-demonstration: 

La regie du jeu est indiqu.ee pendant le deroulement du programme. 
P.S.:oubli, dans les labyrinthes utilises par LABY 3D, lout caraclere 
qui n'est pas un espace est considere comme un obstacle, un 
mur. 




cooes l/ 



DECIMAL PC 



ne us 

07? eai 

laas eai 

197 213 

oaa a?* 

aea oaa 

135 026 

553 071 

177 205 

193 201 

150 06* 
250 201 
000 062 
016 251 
2*3 002 
06-1 034 

123 254. 

12 122 

030 22;. 

000 254. 

OBO 089 

050 152 

033 030 

034 034 
091 139 

035 056 
143 064 
205 212 
33J. 3i35 
237 091 
091 146 
130 064 
191 065 

151 064 
237 091 
053 149 
ISO 064 
143 064 
143 064 
064 062 
064 237 



228 064 117 

033 000 063 

034 030 005 
079 052 143 
245 042 135 

057 063 0O1 
203 059 0S6 
223 255 009 
205 154 064 
064 119 241 
053 149 064 
205 162 064 
012 064 229 
006 020 035 
051 032 245 
034 135 064 
064 237 091 
040 004 254 
032 354 255 
044 065 122 
032 003 001 

063 141 064 
062 001 050 
034 150 064 

064 042 143 
025 126 254 
064 205 212 

058 150 064 
062 001 050 

151 064 061 
064 205 191 
053 149 064 
120 145 060 

152 064 061 
050 151 064 
064 131 050 
144 080 149 
144 050 150 
091 139 064 
070 065 237 
050 153 064 
141 064 025 



079 063 
077 009 

001 000 
143 201 
064 006 
043 002 

002 135 
029 032 
079 130 
225 209 
087 058 

031 016 
001 013 
054 000 
225 001 
042 137 
139 064 
255 032 

032 002 
001 001 
255 255 

062 000 

147 064 

033 009 
064 237 
OOO 040 
064 053 
126 081 
1S2 064 
040 223 
06B 237 
071 056 
087 205 
200 058 
060 071 

148 064 
064 058 
064 042 
035 034 

063 145 
042 143 

014 001 



136 


254 


000 


033 


033 


014, 


00C 


33? 


091 


139 


G6i 


035 


126 


2S4 


000 






062 


00 1 


£52 


153 


064 


BQfl 


!S2 


064 


061 


033 


0K7 


055 










14.5 


06* 


;-:v; 


163 












068 


163 


064 


061 


0J.0 


037 


058 


151 


064 


071 


058 


150 


064 


061 


103 


S37 


091 




064, 




147 


364 


:3C 


3 5.. 


133 


14=5 


095 


205 


163 


064 


1?A 


139 


i , i 


103 


131 


107 


■ ■ 


BOB 


L62 


064 


093 


316 


,-:3 2 


033 


00 


000 


337 


091 


141 


354 


161 


337 


032 


034 


141 


064 


036 


14.7 


064 


337 


B6B 


050 


14.*? 


064 


aoi 


195 


060 


123 







CfiRACTERES: 

"LABY -3D' - 

"PROGRAMME DE DEMONSTfifl 

TION" 
"flEGLE DU JEU : 
"DEPLRCEMENTS : " 



1BREM 4*5 OCTETS .... 

ETC ETC 

■ ■ . ETC . . . 

s rem sdbbh 

L.L0N(5Re 1984 

" ".OCTETS 

.. _HARCEHEN 

NGflGE MP.CHIN 

FOR 1=16514 TO 16959 STEP 



15 


SCROLL 








20 






25 


INPUT fi 






30 


PRINT (-0 


AND 










35 


POKE J,H 






40 


IF J=16959 THE 




45 


NEXT J 






50 


NEXT I 






60 


PRINT "TERMINE 


.CFFRCER Lfl R 


OUT I 


m>>- . ," (LIGNES 




70 


STOP 






99 


RAND 






100 


CLS 

PRINT TR6 














110 


PRINT TAB 


30, ■' 






115 


PRINT TAB 


30, " 






120 


PRINT TAB 








125 


PRINT TAB 










PRINT TAB 








135 


PRINT TAB 










PRINT TAB 




r ■ ■ 




145 


PRINT TAB 


20, - 


■■€ 1 1 






PRINT TAB 


20; - 


l ^^ 1 1 




165 


PRINT TAB 




■ ■■ 1 




160 


PRINT TAB 


30; - 


■ ll 




165 


PRINT TAB 


20, " 


■ ■■ M 




170 


PRINT TAB 


20, - 






175 


PRINT TAB 


20. - 






160 


PRINT TA6 


20, " 






185 


PRINT TAB 


30; " 






190 


PRINT TAB 


20. '■ 






195 


PRINT TAB 


20, " 


fci~l 




200 


PRINT TAB 


20. - 




205 


PRINT TAB 


20; " 






210 


PRINT TAB 


20, " 






212 


LET 0b253 






215 


LET P«PECK 16396*3B6#PEEK 1 






0*10 








320 


IF PEEK P 


>e t 




2 25 


DIM DC4) 






230 


LET Dili -1 




336 


LET (2) -33 






LET 0(3) « 






3*5 


LET 0(4) ■ 


33 




350 


LET T-INT 


(RND 


14 + 1) 


353 


GOTO 335 









ZX81 



2S3 








354 








255 


LET K«-In: 














TO 305 






265 


IF K*< >■ 6 




•7" 


GOTO 






270 


LET U«P.D 








IF KJ-"6- 
IF PEEK U 


TMEN LET 








4 TMEN GOTO 






365 


LET P.U 






290 


POKE 16521. P-INT »F 


/256 



395 POKE 16522 . INT tP/2 

300 GOTO 355 

305 LET T»T*l 

310 IF Kt--'5" TMEN LET 

315 IF T.0 TMEN LET T.4 

320 IF T»5 THEN LET T.l 

325 POKE 16533, D(T I -INT 

B6) *256 
330 POKE 16524 . INT (0 iT 
35S L£T L-USR 16516 
360 IF PEEK P<)184 TMEN 
363 GOTO 100 
400 SRUE "LflBY-3S" 
403 CLS 
*10 PRINT AT 10,10, 

".AT 13 .7, "•«L .LONGR 
*15 PAUSE 250 

420 CLS 

435 PRINT ™f*VT 



vwfl**^* 



_ 'RINT 
CTIUE D.UN 



435 PRINT AT 4, 
■ " 

440 PRINT AT 6.0. " IL 5.AGIT OE 
TROUUER LA SORTIE D.UN LABYRINT 
ME.OONT LE PLAN ESTREPRESENTE Su 
R LA DROITE OE L . ECRAN . " 

445 PRINT "UOTRE POSITION INITI 
ALE EST ALEATOIRE.ET UG5 OEPLACE 



MENTS SONT 
AN.UOUS NE 
IGER GUE 
RSPECTIUE I 
SUR LA 

450 PRINT 

TROUUE LA 
CARREMENT 
EPREND AU 

455 IF INI 

460 CLS 

465 PR IN". 

470 PRINT 
NT '■■'7 

475 PRINT AT 9.2 
IERE . "-6 

460 PRINT AT 11 , 
LA DROITE •■"6" 
485 PRINT AT 13 . 
LA GAUCHE : ■"■5- 
490 IF INr.EY«( 
495 IF INKEY*. 



ISIBLES SUR LE PL 
HOUUEZ DONC U0U3 DIP 
GRACE All TRACE EN PE 

UCOULOIR DEUANT UGUS. 
GAUCHE OE L.ECRAN." 

"SI UOUS PENSEZ AUOIR 
50RTIE.AL0RS FONCEZ 
OANS LE MUR.LE JEU R 
DEBUT. " 

EYi-"" TMEN GOTO 455 



)PIUOTER SUR 

>PIUOTER SUR 

' THEN GOTO 490 
THEN GOTO 495 



FINDER 

Suite de la page 6 



70 7 LIGNE 



427 


JSR 


*FBI9 


628 


LDY 
DEY 


*2) 


£30 


LM 


£->- 




STA 


<*28> ,Y 


A32 


JSR 


61P 


633 


LOY 


£40 


434 EFFBCL 


TYA 




635 


JSR 


*FCA8 


636 


DEY 




627 


BNE 


EFFBCL 


638 


JSR 


4FCVC 


639 
640 


JMP 


BASIC 


44] HONlTEUf 


JSR 


BJP 


442 


JMP 


»fF6V 


443 






444 CATALOG 


JSR 


ECRBUF 


445 


ASC 


-CATALOG 


446 


HEX 


00 



651* ROUTINES' 



1 AFF1CHE LM NUMERO DE LIGNE 



656 


PRNUM 


STX 


SVX 






LDX 


£6 


658 




JSR 


♦F94A jESPACES 


<ssv 




LDX 


£5 


460 




CPX 


*24 


661 




BCC 


PRNUM3 


662 




I NX 




663 




STX 


*24 jMARGE 


664 


PRNUM3 


LDY 


t»2 


665 




LDA 


(LINAOR) ,Y 


467 




INY 




668 




LDA 


< LINAOR) ,Y 


669 




JSR 


LINPRT 


470 




INC 


NUM 


A/l 




ewE 


PRNUMR 


f.77 




INC 


NUM«I 


673 


PPNUMR 


LDX 


SVX 


6/4 




RTS 




6X5 








6/6 


• ECR1TURE SUR EC PAN ET 




• LE BUFFER C 


ENTREE OU MON 


678 








679 


ECRIT 


INC 


FLAG 


480 


ECRBUF 


PLA 




6HI 




STA 


»0 


AW7 




PLA 




..-'■: 




STA 


• 1 


684 




LDY 


(00 



6B9 EC32 



490 


BEQ 


EC42 


69} 


ORA 


c«eo 


692 


STA 


•200.X 


693 


INX 




474 


JSP 


*FDED 


693 


JMP 


EC22 


696 EC42 


LDA 


♦ 1 


697 


PHA 




698 


LDA 


•0 


699 


PHA 




700 


LDA 


FLAG 


701 


BEO 


1 ( f.l.T- 



SIGNAL BONORE 



LDY £*40 



704 I CRRTfl 



LISTING 


1bis 












4000- 


A9 


13 


85 


rw 


A9 


6ft 


85 


39 


600 8- 


A? 


9C 


H5 


34 


A9 


A3 


85 


37 


4010- 


4<; 


t-A 


«;* 


vn 


18 


FD 


r.9 


Rl 


401B- 


Kl 


47 


CV 


VfH 


FO 


41 


FO 


on 


4020- 


K) 


01 






OB 


84 


OA 


R6 


4028- 




Dfl 


AO 


OA 


09 


41 


60 


FO 


4030- 


04 


8B 


10 


FH 


60 


9R 




Afl 


4038- 




4B 


Ml 


4R 


R9 




60 


4R 


6040- 


60 


AF 


«n 


8F 


Br. 




AA 


Al 


4048- 


AF 


VA 


90 


A3 




43 


AD 


60 


4050- 


F8 


63 


FC 


63 


7F 




34 


64 


4058- 


KA 


An 


58 


67 




F7 


43 


4C 


4040- 


CE 


63 


A6 


OA 


DO 




AS 


OR 


4068- 


DO 


16 


VII 


6/ 




AA 




AA 


40 70- 




Ct= 


CF 


CF. 


AO 


D4 


D7 


CF 


*0 78- 


1^ 


1)6 


r.5 


HI) 


00 


4f; 


A3 




6080- 


70 




DA 




OR 


70 


74 


FD 


6088- 


20 


67 


64 


AO 


CF 


C3 


C3 


DS 


6090- 


l)V 


(» 


CF, 


IVA 


Wl 


no 


A5 


OA 


6098- 


r.v 


01 


no 


04 


A5 


on 




05 


60A0- 




D3 


70 


FD 


FD 


4C 


DO 


03 


40AB- 


Wl 


7D 


FF 


18 


90 


t-7 


70 


6t 


40 BO- 


^4 


r.F 


CF 


CD 


AO 


on 


A9 


RF 


60 86- 


70 


6T. 


FD 


BA 


FO 


F7 


?n 


39 


40CO- 


D5 


M 


06 


;;■. 


74 


:'ii 




FC 


60C8- 


Tfl 


47 


FC 


A? 


00 


8A 


IF 


86 


60DO- 




BF 


cr. 


AT 


RF 


flf) 


0? 


AD 


40DB- 


on 


0? 


?n 


7f> 


FO 


90 


T9 


RO 


60EO- 


r.B 


43 


AD 


01 


07 


C9 


.10 


90 


60E8- 


OD 


C9 


3B 




OS 


70 


7D 


F.O 


60F0- 


90 


17 


8D 


cc 


43 


F8 


e« 


BD 




00 


UV. 


HI 


74 


/O 


n> 


HI 


Wl 


4100- 


h?) 


V.V 


to 


VO 


04 


r.v 


MA 


VI) 


4108- 


ED 


C9 


?R 


DO 


04 


85 


IF 


FO 


41 10- 


OF 


C.9 


74 


FO 


04 


C9 


?5 


DO 


41 18- 


Uh 


83 


IE 


FO 


1)9 


4C 


62 


60 



4120- 


AD 


en 


A3 


70 


^r 


PR 


AD 


CC 


A2S0- 


20 


43 


A4 


20 


F8 


DA 


A4 


FC 


4380- 


6128- 


A3 


FO 


OR 


70 


no 


PR 


Aff 


IE 


6258- 


AO 


AS 


A9 




UA 


A3 


AA 




4388 


6130- 


FO 


03 


70 




on 


A^ 




FO 


6240- 


0/ 


A5 


0/ 


LS 


AC 


90 




at; 




6136- 






67 


A4 


AR 


C4 


C9 


CD 


6248- 




CS 


AS 


90 


03 






40 




6140- 




no 


70 


Ffl 




7fl 


FR 


DA 


627H- 


20 


VO 


6/ 


AS 


OA 


CV 


80 


60 




614B- 




67 


Art 




DO 




Aft 


00 


6278- 


^!i 


AS 


II H 


t.V 


H(l 


HO 


4V 






4150- 


84 




Rl 


flA 


AA 


CR 


Rl 


06 


4280- 


OA 


j>0 






7b 


2F 


hi) 


20 




415B- 




C3 


83 


07 


86 


OA 


AO 


0! 


6286- 


8t 


FO 


20 


IV 


A3 


4C 






4368 


4140- 


HI 




1-0 


HV 


Alt 


n '. 


AV* 


00 


4290- 


70 


FS 




A3 


OA 


<*ll 


si; 


06 




6168- 


86 


FA 


RA 


F9 


86 


FH 


CR 


81 


6298- 


AS 


OB 


20 


SC 


DB 


60 




A5 


63C6 


A170- 


06 


10 


17 


C9 


B7 


FO 


07 


C9 


62A0- 


VII 


bD 


1-0 


A2 


06 


•Al 


4A 






6178- 


R3 


FO 


DS 




FA 


FO 


FF 


20 


62A8- 


AU 


01 


81 


06 




hH 


Rl 






4180- 


F3 


Al 


4C 




61 


DO 


OA 


AA 


6280- 


CV 


80 


90 


OE 


48 




AD 


20 


43E0- 


61BB- 


FA 


FO 


n 


70 


F3 


Al 


4P 




4288- 


to 


FD 


HA 


4V 




AA 


FH 


68 


63E8- 


6IV0- 




rv 


7? 


f>0 


n 


AA 


FA 


FO 


62C0- 




FF 


20 


24 


to 


4C 


87 


A2 


A3F0- 




03 




F3 


Al 


FB 


Bl 


06 




62C8- 






70 


ED 


FO 


A2 


UA 


20 


A3F8- 


6IA0- 


AD 


,'■;■ 


77 


Ml 


F ■' 


4r 


66 






4A 




AO 


00 


81 


OA 


83 


IS 


4400- 


61AB- 


T.9 


74 


FO 


04 


rv 


;-■ 


on 


05 


6208- 


C8 


Bl 


OA 


B3 


IV 


l.» 


Bl 


06 


4408- 


61B0- 


85 




4C 


AF 


61 


C9 


78 


DO 


62E0- 


H3 




AU 


00 


Bl 






80 


4410- 


61B8- 


08 


m 


FB 


70 


F3 


Al 


4C 


66 


A2EB- 


20 


ED 


1-D 


CH 


C4 


18 


VO 




4418- 


41C0- 


61 


r.9 


m 


vn 


RA 


CV 


5fl 


BO 


62F0- 


4L" 


8/ 


62 


AO 


no 


Bl 


OA 


83 


4420- 


41C8- 


H7 


rv 


41 


RO 


OR 


rv 


■>A 


80 


42F8- 




CH 


HI 


OA 


HS 


OU 


AS 


OA 


6428- 


A1D0- 


AA 




FA 


FO 


V9 


H4 


Fr 


A4 


A300- 


18 


6V 


02 


83 


04 


A3 


0/ 




4430- 


41D8- 


FA 




Bfl 


n? 


F4 




A4 


FC 


6306- 


00 


HS 


0/ 


AH 


AS 


04 


20 




643B- 


A1E0- 


4C 


AF 


61 




FA 


FO 


71 


84 


6310- 


FA 


AO 


A3 


UA 


IB 


A9 


03 


85 


6440- 


41E8- 


FC 


A9 


on 


9I> 


RO 




AD 


80 


631 8- 


OA 


A5 


07 


A9 




..... 


07 


60 


6448- 










A3 




A? 




Bl 


6320- 


70 


■'i. 


64 




A3 


20 


AC 


FD 


4430- 


41FB- 


n? 


rn 


cr 


63 


DO 


TA 




F9 


6328- 


BA 


00 


03 


■li 


A3 


AO 




39 


4436- 


4200- 


T5 


IF 


no 


™ 


A"l 


FR 


n 


IF 


4330- 


03 


VO 


FH 


DA 


AA 


6/ 


A3 


66 


6460- 


4208- 


no 


4F 


AO 


nn 


flV 


RO 


r>? 


FO 


6338- 


DO 


10 


AO 


00 


81 


OA 


AA 


ce 


6468- 




OA 


70 


■V 


DP 


en 


DO 


F^ 


AS 


A340- 


HI 


06 


OU 


OA 


20 


1-b 


DA 


4C 


6470- 


4218- 


F9 


FO 


ns 


70 


nr 


Rfl 






4346- 


62 




83 


0/ 


UA 


06 


AO 


03 


6476- 
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PARLEZ-MOI FRANQAIS! 

Enfin de vrais logiciels d'aventure pour APPLE //+ , He et He, ou I'on peut dialoguer 
avec son ordinateur, en frangais et avec de vraies phrases. 
FROGGY SOFTWARE invente I'analyse de syntaxe: Cocorico! 



PARANOIAK 




PARAN01AK: 

Commeni ne pas ffiser la lo'ie qa'op'iiio quant) lea ptoblemoB les plus noirs voos submet- 

geni comme une tonne d o'du'es' Juge; pMol do co qu'on vous a colle sur lf)s Cpnutos 

cornpiQ't* o i-i'O'-O'-io. complete dOedipe. peisccuiion, supeishtion, iitnidite. elc. Pour 

vous dflbnrassei de co lonneau de problemes. vous devre? erroi dans la viile ol ronconiror 

ceux qui som suscepl'bies de vous iiror de ce bouibior Au hasard do vos dOambulalions 

vos coelt>c<enl3 de sanie. de moral el dargeni lluctuoioni. II laudra vous manager pour 

evrter la depnme loia'c ou linlarcius. Ce iou posscde uno analyse do syntavo qui vous 

permet de d>scuter hbremeni avec voire APPLE PARANOIAK est un iou congu cl ecu en 

Irancais. Grapheme tiaulo-rosoiuiion couieur oi humour garantia Dopcchoz-vous nvanl que 

les amOricalns ne nous lo piralonl. Damned!! 

EPIDEMIE: 

Ca vous gralouiilo ou ga vous chalouillo? Dildciio a due' Mais com vous qui dtos cnartjfi 

do Iiouvt!f li"! rrjmfXin a CO virus t\m r. nv.l ali.illu '.ur l,i tcrrc S.mli'.' il.in- vi-!i.- .-.■ ■■■■.n 
J spatial pour Niire In navollo onlro aualro pl.inoles complelomonl louloques Des belles 
o*lra-lorr<».tr(!:j (Id PAMADI3IA aux monstrcs do FABULA vous vivrez dos avonluros a cOl* 
dosquolles I'Odyssoe d'Ulysso vous appnrai'lra commo du pipi do chai Main cos bonds 
dans I' Espace no seiaienl lien s'i's n'eialeni accomparjnos do bonda dans lo Ivmpal No 
vous elonnoz done pas si vous vous rotrouvo/ brusquonienl on ploino guorro du paciliquo 
ou dans uno pyramido do RnmsOs II 

Ce |0u davenluro compono dos tableaux animos Voire parsplCMlM dtVTI done Olro dou- 
bleo d uno bonno dose d adrosno pour parvenu a onrayor I opidemio 



EPIDEMIE 




Vous pouvez Irouver ces disquettos chez votre revendeur habituel. ou les commander directement chez SHIFT 
EDITIONS 27 rue du Gal Foy. 75008 PARIS, en joignanl un cheque de 350 francs, par disquelle. 



SPACE WAR 



Aux commandes de voire vaisseau spatial, vous devez 
aneantir les soucoupes qui se trouvent devant vous. 
Attention, vous pouvez les detruire seulement lorsqu'el- 
les sont blanches. 
Le mode d'ernploi est dans le programme. 

Regis DUCAT 




PAR Fi. DUGAT 



SUR TI-99/4A 



IOO ■ 

110 ■ PRESENTATION 

120 • 

130 ON BREAK NEXT 

I4D ON WARNING NEXT 

ISO ON ERROR 130 

160 CALL CLEAR :: CALL SCREEN(2>:: CALL 

MAGNIFY!?):: FOR 1=1 TO 8 :: CALL COLORC 

I, 5, lis: NEXT I :: RANDOMIZE :: CALL COL 

0R12, 15, 1 1 

170 CALL CHARC42. "007C62514F4F2F1F" ) 

180 CALL HCHAR(1,2,42,31) t : CALL HCHARI2 

4.2.42,31);: CALL VCHAR ( 1 , 2, 42, 24 > s : CAL 

L VCHAR (1.32, 42, 24) 

190 CALL SPRITE("1,B3,10, 13, 60, #2, BO, 10, 

20,B5,»3,65, 10,25, 110, *4, 67, 10.30, 133, *3 

,69, 10.35, 160) 

200 CALL SPRITE(t(6, 87, 10,55,85,1(7,63, 10, 

60, UO,*B,82. 10,65,135) 

210 DISPLAY AT(15,7) : "SPACE WAR" ;: DISP 

LAY AT (20, 21 ): "PAR :" :: DISPLAY AT (22, 2 

4) : "RD. " 

220 DISPLAY AT(17, 8) : "»«*«-•-" 

230 RESTORE :: FOR 1-1 TO 30 ll READ A, 6 

ss CALL SOUND !A»3,B,0,8»2, I) : : FOR W-l 
TO 3 :: NEXT W 
240 CALL KEY(1,A,B):: CALL KEY(2,A,C>:: 

IF BOO OR COO THEN 270 

250 NEXT I 

260 GOTO 230 

270 CALL CLEAR :: CALL DELSPRITE (ALL) : : 

CALL MAGNlFY(l):: CALL COLOR (0, 3, 1 ) : : CA 

LL CHAR (128, " 183C5A991 81B1B1B" ) 

280 DISPLAY ATI12.5) : "VOULEZ VOUS DES": 

: "EXPLICATIONS 7" :: DISPLAY AT{I7,4):"Q 

UI" :s DISPLAY AT ( 1 7, 14) : -NON" 

290 CALL SPRITE (HI, 12B.3, 148,80) 

300 CALL JOYSTd.A.B) : : CALL KEY(l,C,D)t 

: IF DOO THEN 330 

310 IF A— 4 THEN CALL LOCATE (« 1 , 1 4B, 4B) : 

: GOTO 300 

320 IF A=4 THEN CALL LOCATE (tt 1 , 14B, 128) : 

: GOTO 300 ELSE 300 

330 CALL POSITION(-1,X,Y) :: IF Y-128 THE 

N 480 ELSE IF Y<>4B THEN 300 :: CALL DEL 

SFRITE(ALL) : : CALL CLEAR 

340 DISPLAY AT ( 1 , 8) : "SPACE WAR" 

350 DISPLAY AT(4,3):"AU DEPART DU JEU, 4 

VAIS-": ; "SEAUX ENNEMIS SONT LANCES"! I 
"A VOS TROUSSES. ": : : " VOTRE BUT EST D 
E VOUS": : "EN DEBARASSER, MAIS CELA" 
360 DISPLAY AT ( 13, I ) : "N' EST POSSIBLE GUE 

SI UN": : "VAISSEAU DEVIENT BLANC": j "A 
TTENTION A EUX A TOUT": : "MOMENT ! • " i i 
: "ATTENTION : TEMPS LIMITE •" 
370 CALL KEY(I,A,B):l CALL KEY<2,A,C)it 
IF B=0 AND C=0 THEN 370 

380 DISPLAY ERASE ALL AT ( 1 , B) : "SPACE WAR 
": : : "ETAPE DU RAVITA1LLEMENT :": i t" 

AMMENEZ VOTRE VAISSEAU": :"JUSDU'A LA L 
IMITE BLANCHE. " 

390 DISPLAY AT ( 12,1) i" DIRIGE2 VOUS ENS 
UITE VERS": :"L'ENTREE DU TUNNEL ET ENFI 
N": :"JUSOU'A LA FUSEE DE": :"RAVITAILLE 
MENT A DROITE." 

400 CALL KEY(1,A,B>:: CALL KEY (2, A, C) : : 
IF B=0 AND C-0 THEN 40O 

410 DISPLAY ERASE ALL AT ( I , 8) I "SPACE WAR 
": : : "ETAPE DES METEORITES"! I :" EVIT 
EZ LES METEORITES OUI": : "VOUS VIENNENT 
DESSUS ET DE-" 

420 DISPLAY AT CI 1 , 1 > : "TRUISEZ-LES UNE PA 
R UNE ET": i"RESFECTIV£MENT DE HAUT EN"i 

: "6 AS. " 
430 DISPLAY AT (IB, 1) : "BARRE ESPACE -> PA 
USE." :: DISPLAY AT (20, 1 ) i "ALPHA LOCK LE 
VEE." :: DISPLAY AT (24, 2) : "BONNE CHANCE. 

440 CALL K£YCl,A,B)l: CALL KEY(2,A,C):: 

IF B=0 AND C«0 THEN 440 

♦SO ! 

460 ! LECTURE DES DATA 

470 ! 

480 CALL CLEAR :: CALL DELSPRI TE (ALL > : : 

CALL MAGNIFY(3):: FOR 1=0 TO 14 i| CALL 

COLOR (I, 15, 1) : : NEXT I 

490 RESTORE 1290 :: FOR 1=123 TO 143 :: 

READ A* :: CALL CHAR(I,A*)i: NEXT I 

500 FOR 1*1 TO 14 :: CALL COLOR ( I , B, 1 ) : : 

NEXT 1 :: CALL COLOR ( 12, 16, I , 13, 16, 1 , 14 
,16,1) 

510 RESTORE 1330 :: FOR 1-1 TO 32 : : REA 
DA:: CALL HCHAR(24, I,A):: NEXT I 
520 RESTORE 1370 :j FOR 1=1 TD 6 : i READ 

A,B :i CALL HCHAR (23, A, B) : : NEXT I 
530 CALL HCHAR(21 ,3, 138) : : CALL HCHAR (22 
,3,139):i CALL HCHAR (23, 3. 140) 
540 FOR 1-92 TO 116 STEP 4 .: READ A* :: 

CALL CHARd.A*):: NEXT I 



550 CALL CHARFATOB, X*,90.Z«) 
560 FOR 1=2 TO 21 :: CALL HCHAR ( I , INT (32 
•RND)*1 , 142) : : NEXT I 
570 ! 
580 ! J EU 
390 ■ 

60O NB=5 :: PT=0 :: FU=50 :s M-92 It B=l 
s: C0=INT(I2»RND>+2 :: VIT=-40 :: TEM=1 
5 : : BON-0 
610 DISPLAY BEEP AT ( 1 , 1 ) : "BOUTON DE TIR. 

620 CALL SPRITE (Ml, 96,5,88.30) 

630 CALL KEYU.C.D):: IF D=0 THEN 630 

640 RESTORE 1470 

650 DISPLAY AT ( 1 , I ) : "SCORE: " ; STR« (PT) ; TA 

B(13) t "FUEL: " : STR* ( INT (FU) > [TAB (22) ! "VIE 

S:";STR«INB> 

660 M=M+8 :: IF M=l 16 THEN M=92 :: GOTO 

660 

670 C0=C0*1 :: IF COM4 THEN CD=2 :: GOT 

670 

6B0 FDR 1=2 TO 5 

690 READ PO : : IF P0=0 THEN RESTORE 1470 
:i GOTO 6B0 ELSE CALL SPRI TE (*I , M, CD, PD 

,236) 

700 FOR J— 100 TO VIT STEP 5 II CALL MOT 

I ON I » 1,0, J) : : CALL SOUND (-4000, -3, - (J/10 

+ 4) ) 

710 NEXT J 

720 CALL S0UND(-1, 110,30) i: FOR K-l TO 7 

5 : : NEXT K 

730 NEXT I 

740 B-B+l || IF B-6 THEN 8B0 ELSE CALL S 

0UND(50,B30,0) : : CALL SOUND ( 10, 750, O) : : 

CALL CDL0R(»B,16) 

750 DISPLAY AT ( 1 , 7 1 SI ZE <5) : STR* CPT ) : : DI 

SPLAY AT(1, ia)SIZE(2):STR»(INT(FU)):: DI 

SPLAY AT(1,27) :STR*{NB) 

760 FOR 1-1 TO TEM 

770 CALL JOIST(B,BOUM,PT,NOMa, VIT) : : IF 

BOUM— I THEN 860 

780 IF BOUM-1 THEN 740 

790 FU-FU-.5 :: IF FU<0 THEN CALL FUEL(B 

DUM.PT.FU):: IF BOUM— 1. THEN B60 ELSE 88 

O 

BOO IF NB<=0 THEN 1 1 IO 

810 CALL CDINC!ALL,Z):: IF Z=-l THEN CAL 

L CRASH : : GOTO 860 

B20 NEXT I 

B30 CALL DELSPRITE(#B) : : CALL C0L0R(«1,1 

6) 

840 CALL PATTERN(#1, 1121 :: FDR K-0 TO 2 

STEP .25 :: CALL SOUND (-4000, -7, K) : I NEX 

T K : : CALL PATTERN (#1, 1 16) : : FOR K-6.3 

TD 30 :: CALL SOUND (-400O, -7, K) : : NEXT K 

850 CALL PATTERN(#1,96):: CALL COLDRdU, 

5):: NB=NB-1 :: GOTO 740 

B60 DISPLAY AT ( 1 , 7) SIZE (5) : STR* (PT) j : DI 

SPLAY AT(1, 18)SIZE(2> : STR* ( INT (FU) ) : : DI 

SPLAY ATU.27) :STR*(NB) 

B70 NB-NB-I :: IF NB<=0 THEN 1110 ELSE B 

-1 i: DISPLAY AT(13,30)SIZE(1)8EEP li GO 

TO 620 

880 FOR L-2 TO 11 :: CALL DELSPRITE (#L) : 

: NEXT L 

B90 PT-PT+200 t: DISPLAY AT ( 1 , 7) 51 ZE (5) : 

STR*(PT) : : DISPLAY AT ( 1 , 1 8) SI ZE (2) : STR* ( 

INT(FU) ) : : DISPLAY AT (1,27) :STR*(NB) 

900 CALL L0CATE(»1,8B,30) : i B-l :: VIT-V 

IT-. 5 

9(0 BDN-BDN+I i: IF B0NO5 THEN 660 

920 ! ETAPE METEORITES 

930 VIT-VIT-.75 ji TEM=*TEM-2 :: B-2 :: D 

I SPLAY AT (3, I) : "ATTENTION : UN CHAMP": : 

"DE METEORITES ■ !" 

940 CALL CHAR (89, "00OOOOO2060FOFOF1F1FOD 

0DO3OOO000OO0OFBE4FCEBE8FCF6FE9CB8FO4O00 

OO") 

930 FOR 1=1 TO 300 i: NEXT I II CALL HCH 

AR(5, 1,32,96) 

960 FDR 1-3 TO 7 it CALL HCHAR ( I , INT (32» 

RND)+1, 142)11 NEXT I 

970 CALL METEOR(B,BDUM) 

980 FDR 1=20 TO 160 STEP 20 :: CALL SPRI 

TE(»I/20+I,-8B, 1/10, 1,236):: NEXT I 

990 CALL METEOR (B, BOUM 1 

10O0 FOR 1=2 TO 9 : : CALL MOTION («I , O, VI 

T*13):t NEXT I 

1010 CALL COINC(ALL,Z):: IF Z— I THEN CA 

LL CRASH e : GOTO B60 

1020 B-B+I :: IF B>9 THEN BON=0 t: CALL 

CHAR(88,X*,90, Z*) : : GOTO 880 

1030 FOR K-l TO 20 

1040 CALL COINC(ALL,Z):: IF Z=— 1 THEN CA 

LL CRASH ; I GDTD B60 

1050 CALL METE0R(B,B0UM1 : : IF B0UM=-1 TH 

EN 860 ELSE IF BOUM-1 THEN 1020 

106O NEXT K 

1070 CALL CRASH :: GOTO B60 

1080 ! 

1090 ! FIN DU JEU 

noo i 

1110 CALL CLEAR :: CALL DELSPRITE (ALL) : : 
CALL CHARSET :: FOR 1-0 TO 14 :t CALL C 
OLORCI.a, l)s: NEXT I 

Iin-O DISPLAY AT(4,5):"FIN DU JEU" :i DIS 
PLAY AT(7,6) : "SCORE : " % PT ll DISPLAY AT( 
15, 3): "UNE AUTRE PARTIE ?" 



1130 DISPLAY ATU, 1 5) : "RECORD: " ; STR* (RE ) 

1140 IF PT>RE THEN RE-PT ELSE 1160 

11SO FOR 1=1 TD 10 :: CALL SDUND ( 100, 4O0 

,0):: DISPLAY AT ( 1 1 , 1 ) : : CALL SOUND (100, 

600,0):: DISPLAY AT ( 1 1 , 1 ): "RECORD BATTU 

11 " :: NEXT I 

1160 DISPLAY AT (15, 3) : "UNE AUTRE PARTIE 

7 " 

1170 ACCEPT AT(17,9)BEEP SI ZE (3) VAL I DATE 

("DUIN") :R* 

1180 IF SEG«(R», 1, 1)="0" THEN 4B0 ELSE I 

F SEG*(R», 1, 1 )<>"N" THEN 2160 

1190 CALL CLEAR 

1200 END 

1210 ' 

1 220 ! DATA 

1230 ! 

1240 ! MUSIQUE PRESENTATION 

1250 DATA 50,165,50,175,50,196,200,262,5 

O, 147,50, 165,2Q0, 175,50,220,50,247,50,26 

2, 200, 349, 50,220, 50,247, 50,262 

1260 DATA 125,294,125,330,50,165,50,175, 

30, 196,200,262,50,294,50,330,200,349,50, 

196,50, 196, 125,330,50,294 

1270 DATA 50,196,125,330,50,294 

1280 ! CARACTERES DECOR 

1290 DATA 070301, C0C08, FFFFFF1F1F0F0F07, 

FFFFFEFCFCFBFBEO 

1300 DATA FFFFF3F000000000, 000000O00F3FF 

FFF,OOOOOOCOF1FFFFFF,20307B7CFCFFFFFF,00 

OOOOOOOOFFFFFF 

1310 DATA 00000I0307FFFFFF, 0000010307070 

F0F,0F0F1FBFFFFFFFFF,00£0F0F0FCFCFCFE 

1320 DATA FFFFFFFFFFFFFFFF,0O000OF0F8FCF 

FFF, I8l818183C3C3C,3C3C3C3C3C3C3C3C,3Cia 

3C5AD8C3C3C3 

1330 DATA FF99999999FFFFFF,8,FFFF7F3F3E1 

E0304 

1340 ! HI5E EN PLACE DECOR 

1350 DATA 128,129,130,131,141,132,134,13 

6, 137, 128,129,130, 131, 128,129,130,131,13 

1, 132, 134, 136, 137 

1360 DATA 131,131,131,132,134,136,137,12 

8, 129, 130 

1370 DATA 7,133,8,135,20,133,21,135,27,1 

33,28, 135 

13B0 ! DEFINITION SPRITES 

1390 DATA 0000000107 1F7FFFFF7F1F070 10000 

OOO0OOFCF0E0COFBFFFFF8C0E0F0FCOOOO 

1400 DATA 00003F0F07031FFFFF1F03070F3F00 

0000000080EOFBFEFFFFFEF8E080000000 

1410 DATA 00000103070F1FFFFF1FOF07030100 

OOOOFOFBFBFCFFFFFCFCFFFFFCFBFBFOOO 

1420 DATA OOOO00000000CO3F3FCOOOOOO00000 

OOOO00000OOOOOO0F8F80O0OOO0OOOO000 

1430 DATA 000300000FOF1FFFFFIFOFOF000003 

OOOOF020F8FaFCFFFCFCFFFCFBF820FOOO 

1440 DATA 0000000421 08002000100401 1000O0 

00O0OOOOOO2O0B2O0OOO 1 04000 lOOOOOOO 

1450 DATA 04410024000O80000040O01O00O044 

0021 0O04O0 1 00 1 000004 000009008004 00 

1460 ! POSITIONS SPRITES 

1470 DATA 105,35,140,70 

1480 DATA 140,105,33,70 

1490 DATA 70,33,140,103 

1500 DATA 140,70,35,105 

1510 DATA 35,70,140,105 

1520 DATA 140,35,105,70,0 

1530 I DECOR TUNNEL 

1540 DATA 143,127,143,127,127,127,143,12 

7, 125, 126, 127, 143, 127, 127, 127, 143 

1550 DATA 125,126,127,143,127,143,123,12 

6, 127, 125, 126, 127, 127 

1360 ! 

1570 • SOUS-PROGRAMMES 



M-0 

1610 CALL KEY(0,C,V)>: IF C-32 THEN CALL 

PAUSE (VIT) 
1620 CALL COINC(ALL.Z):: IF Z — 1 THEN CA 
LL CRASH :: BDUM=-1 :: SUBEXIT 
1630 CALL JOYSTd , A, G> i : CALL KEY(1,C,D) 
1640 CALL M0TION(#l,-G«6,0): : FOR T-l TD 

7 :: CALL COINC (ALL, Z ) : : IF Z— 1 THEN C 
ALL CRASH :: BQUM-=-I :: SUBEXIT 
1630 NEXT T :: CALL MDTIDN (•] , 0,0) 
1660 CALL CDINCIALL,Z>u IF 2— 1 THEN CA 
LL CRASH |l B0UM=-1 : : SUBEXIT 
1670 IF D"0 THEN SUBEXIT 

1680 CALL POSITION(#1,X,Y) : : CALL SPRITE 
(•11, 104,7, X.Y+1 6, 0,60) 
1690 FDR V-l TO 13 
1700 CALL C0INC(«11,*B, 12, Z) 
1710 IF Z — 1 THEN CALL BOUM IB, PT, NOMB) : : 

B0UM=1 :: SUBEXIT 
1720 NEXT V :: CALL DELSPRITE(»1 1 > : : SUB 
EXIT 

1730 SUBEND 
1740 ! COLISIDN 
1730 SUB CRASH 

1760 FOR H=2 TO 1 1 i: CALL DELSPRITE <»H) 
:: NEXT H i: CALL COLOR (#1 . 16) : i CALL MO 
TION(ttl,0,0) 

1770 CALL PATTERN(#t, 1 12) : : FDR H-0 TO 2 
STEP .1 :: CALL SOUND(-4000,-7,H) t l NEX 
T H : : CALL PATTERN ( It 1, 1 16) : : FDR H~6.5 



Tl 99/4A 

BASIC 

ETENDU 



TD 30 :: CALL SOUND I -4000, -7, H) : : NEXT H 
1780 CALL DELSPRITE(»1 ) : : SUBEND 
1790 ! ENNEMI TOUCHE 
1800 SUB BOUM (8, FT, NOMB) 

1B10 CALL DELSPRITE(»1 1 > : : CALL MOTION (i 
B, 0,0, Ml, 0,0) : : CALL COLOR (»B, 16) 
1B20 CALL PATTERN(«B, 1 12) : : FOR O-O TO 2 
STEP .25 : : CALL SOUND (-4000, -7, 0) : : NE 
XT :: CALL PATTERN t«B, 116) : : FOR K-6.5 
TD 30 :: CALL SOUND (-4000, -7, K) : : NEXT Y 
1830 N0MB=N0MB+1 :: PT"=PT*lO0 :: CALL DE 
LSPRITE (#B) : : SUBEND 
1B40 ! RAVITAILLEMENT 

1850 SUB FUEL(BOUM.PT.FU) : : BOUM=0 :: DI 
SPLAY AT d , 1B)SIZE(2) : "O" 
1860 CALL L0CATE(*1 ,BB,30) : : FOR R»2 TO 
11 :: CALL DELSPRITE <#R> : : FOR U=l TO SO 

: : NEXT U : : NEXT R 
1870 RESTORE 1540 ;: FOR 0=1 TO 29 : : RE 
AD PM :: CALL HCHAR (20, D, PM) : j NEXT O 
1880 CALL HCHAR(21,9, 123):: CALL HCHAR (2 
1,10,124):: CALL HCHAR (21 , 26, 123) : : CALL 

HCHAR(21,27, 124) 
1890 CALL HCHAR(21,17, 123):: CALL HCHAR< 
21,18,124):: CALL HCHAR(21,23, 1231:: CAL 
L HCHAR(2I,24,124) j: CALL VCHAR ( 13, 32, 30 
,5):: CALL HCHAR ( 1 3, 31 , 30) 

190O CALL JOYSTd, A, B) : : CALL MOTION(-1, 
-8*3,15):: FDR E=l TO 50 :: NEXT E s : CA 
LL M0TI0N(»I,0,13) 

1910 CALL PD5ITI0NC#1,X,Y> : : IF Y>213 TH 
EN 1940 :: CALL GCHAR ( (X+ 1 O) /a, ( Y+ 10) /B, 
Z):t IF Z032 AND Z<>142 THEN 1920 ELSE 
1900 

1920 CALL CRASH :: CALL HCHAR ( 13, 1 , 32, 32 
O) : : FOR E»I3 TD 22 :: CALL HCHAR(E,INT( 
32»RND)+1, 142): : NEXT E :: B0UM=-1 
1930 FU-50 :: CALL HCHAR (21 , 5, I3B) : : CAL 
L HCHAR<22,5,139):: CALL HCHAR (23. 5, 140) 
:: SUBEXIT 

1940 IF X<103 OR X>145 THEN 1920 
1930 CALL JOYSTd, A, B>: : CALL M0TI0N(#1, 
-B*3,A»3):: CALL POSI TION <«1 , X, Y) : t FOR 
E-*l TD 49 :: NEXT E :: CALL MDTIDN(*1,0, 
01:: CALL GCHAR( (X+10) /B, (Y+10) /B, Z) 
1960 IF Z<>32 AND Z<>142 THEN 1920 
1970 IF X>150 AND X<170 THEN 1 9B0 ELSE 1 
930 

1980 CALL PATTERN<#1,92) 

1990 CALL JOYSTd, A, B) : : CALL M0TI0N(*1, 
-B«3,-13):: FDR E-l TO SO i: NEXT E it C 
ALL MDTION(IH, 0,-13) 

2000 CALL P0SITI0N(«1,X,Y):: CALL GCHAR ( 
(X+10>/a, (Y*10)/8,Z)t: IF {Y*ll)/8<9 THE 
N 2020 :: IF Z<>32 AND Z0142 THEN 1920 
2010 GOTO 1990 

2020 CALL MOTION(«1,0,0) :: FOR E=l TD 10 
:i CALL SDUND (50, 150,0) 1 : CALL SDUND (SO 
,350,0):: CALL SOUND (30, 330, 0) : : NEXT E 
2030 DISPLAY AT (22, 10) : "BONUS: 100 PTS" i 
l FOR E-I TD 200 : l NEXT E 
2040 CALL HCHAR(13, 1,32,3201 : : FOR E-13 
TO 22 :: CALL HCHAR(E, INT (32«RND) +1, 142) 
i : NEXT E 

2030 CALL HCHAR(21,3,I38) ll CALL HCHAR(2 
2,3jl39);: CALL HCHAR {23, 3, 140) 
2060 CALL L0CATE(»l,B8,30>:t CALL PATTER 
N ( • 1 , 96 ) 

2070 FU-50 : t PT-PT+30 
20B0 RESTORE 1470 II SUBEND 
2090 ! CHAMP DE METEORITES 
2100 SUB METE0R(B,BOUM) : : BOUM-0 
2110 CALL JOYSTd, A, G) : : CALL KEY(1,C,D> 
2120 CALL COINC(ALL, Z) I : IF Z—l THEN BO 
LB1— 1 ii CALL CRASH :: SUBEXIT 
2130 CALL M0TI0N(#1,-G»4,A»4): : FOR 1*1 
TO 43 t i NEXT I :t CALL MOTION (HI , 0, O) 
2140 IF D-0 THEN SUBEXIT 

2150 CALL P0SITI0N(»1,X,Y): i CALL SPRITE 
(#11,104,7, X,Y+16, 0,60) 
2160 FOR V-l TO 13 

2170 CALL C0INC(»1 1 , »B, 12, Z) : : IF Z--1 T 
HEN 2200 

2180 NEXT V :: CALL DELSPRI TE (HI 1 ) 
2190 SUBEXIT 

2200 CALL BOUM (B,PT. NOMB 1 : : BOUM= 1 :: SU 
BEXIT 

2210 CALL COINC(ALL.Z):: IF Z — l THEN CA 
LL CRASH t: BOUM=-l :: SUBEXIT 
2220 SUBEND 
2230 SUB PAUSE (VIT) 

2240 CALL SOUND ( IOO, 1 10, O) : : FOR 1-1 TO 
23 : i NEXT I 

2250 FOR 1-1 TD 3 :: CALL MOTION (HI , 0, O) 
II NEXT I 

2260 FOR 1-1 TO 3 :: CALL KEY(0,E,F)s: I 
F FOO THEN 2320 
2270 NEXT I 

22B0 DISPLAY AT (3, 22) SI ZE (5) BEEP: "PAUSE" 
2290 FOR 1-1 TD 3 t: CALL KEY(0,E,F)ti I 
F F< >0 THEN 2320 
2300 NEXT I 

7.310 niKPI AY AT(3.72)SIZE(3) : : GOTO 2260 
2320 CALL SOUND ( 100, 1 10, 0) : : DISPLAY ATI 
3,22)SIZE(3) 

2330 FOR 1-2 TD 5 : : CALL MOTION (*I , 0, VI 
T) :: NEXT I 
2340 SUBEND 



HEBDOGIC1EL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU UEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 

N °M : MATERIEL UTILISE : . 

PRENOM : CONSOLE : 

ADRESSE: PERIPHERIQUES : 

REGLEMENT JOINT : O CHEQUE DCCP 



DEUX SUPER-CONCOURS PERMANENTS 

10 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
lornnilc, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois el tous les trimestres ! 
Et avec des prix dignes des pro- 
grammes que vous atlez nous 
envoyer! 

De plus, ce seront les lecterns 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelie. 

Pas de Jury, pas de decision ar- 
bitrage. HEBDOGICIEL ninter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGIN AUXet FRANC AIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
ciatistes vous dira comment 
I'ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessatres a I'utili- 
sation de ce programme. 
Bonne chance! 



Reqlemenl 

ART I HEBDOGICIEL organise 
de facon mensuelle el tnmes- 
tnelle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du Irimestre. 
ART. 2 Ce concours est ouvert a 
lout auteur de logiciel quelque 
soil le materiel sur lequel il esl 
realise L'envoi d'un logiciel en 
K 7 ou disquetle accompagne 
d"un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
journal constitue I'acte de can- 
didature 

ART 3 La redaction d'HEBDO- 
GICIEL se reserve !e droit de 
seleclionner sur la base de la 
qualile el de rbnginalite les logi- 
ciels qui sont publies dans le 
lournal 

ART. 4 Ce sont les lecteurs qui. 
par leur vote, determinent les 
meilleurs logiciels mensuel et 
Inmestriel 

ART 5 Le prix alloue pour le 
concours mensuel sera remisau 
plus tard un mois apres la clo- 
lure du concours mensuel 
ART 6 Le prix alloue pour le 
concours tfimestnel sera remis 
auplustardun mois apres la clo- 
ture du concours Inmeslriel 
ART 7 Le present reglement a 
ete depose chez Mallre Jauna- 
tre, I , rue des Halles 75001 Pans 
ART 8 HEBDOGICIEL se reser- 



ve le droit d'mterrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avanl 

ART 9 La participation au con- 
cours enlraine I'acceplation par 
les concurrents du present re- 
glemenl 

HEBDOGICIEL: 27, rue du Gal 

FOY - 75008 PARIS 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Norn : 

Prenom ; 

Age : Profession : 

Adresse : 

N n telephone 

Nom du programme : 

Nom du materiel utilise : 

declare etre I'auteur decs programme qui n'est ni une imitation ni une 
copie dun programme existant Ce programme reste ma propnete e! 
j'autofise HEBDOGICIEL a le publier. La remuneration pour les pages 
pubhees sera de 1000 francs par page {un programme n'occupan! pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire : 

(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (casselte ou 
disquette) accompagne d'un descriptor ctetailte du materiel utilise, 
d'une nolic e d utilisatio n du prog ramm e Les supports des program- 
mes pubises sont conserves , n'oubliez done pas d'en faire une copie. 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emploi, listings et bon de parti- 
cipation dans une meme enve- 
loppe. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en I'mdiquant sur voire 
Bon de Participation 

• N'oubliez pas el ceci est tres 
important, d'mscrire sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Nolez dans les premieres lignes 
de votre programme, sous forme 
de REM. votre nom. le nom du pro- 
gramme etle materiel auquelil est 



destine Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sortis de I'imprimante 

• Duphquez plusieurs fois sur la 
casselte et a des niveaux d'enre- 
gistrement differenls votre pro- 
gramme Nous aurons plus de 
chance d'arri vera le charger si les 
magnetophones ne sont pas tout 
a (ail compatibles. 

• En ce qui conceme les bons de 
participation, mettez votre adres- 
se complete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "pelites 
annonces". "abonnement" et 
"programmes" specifiez sur vos 
enveloppes 1'objet de votre cour- 



• Exphquez les particulates de 
votre ordinaleur e! le moyen 
d'adapter votre programme a 
d'autres ordinateurs 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons. evitez de nous envoyez 
les jeux suivants : BIORYTHMES. 
MASTERMIND, PENDU. TOUR DE 
HANOI. CALENDRIER, BATAILLE 
NAVALE. POKER. JACKPOT, 
BOWLING, BLACK JACK. LABY- 
RINTHE. MEMORY SIMON. 421. 
OTHELLO, SOLITAIRE, LOTO 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDJ- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI. SHIFT, SYBEX). 






SQUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 


Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP 41, leur livre "autour de la bou- 
cle" de Janick TAILLANOIER. 





RECOMMANDATIONS 

PARTICULIERES 

AUX POSSESSEURS DE 

TRS80 

Indiquer avec precision le mo- 
dele d'ordinateur auquel le pro- 
gramme est destine. Si le pro- 
gramme est enregistre sur 
cassettes utilisez obligatoire- 
ment la vitesse de 500 bands, 
meme sur un modele III. 
Dans tous les cas oil le pro- 
gramme est enregistre sur cas- 
sette il faul avoir utilise la Vi- 
tesse de 500 bands et non, en 
particulier, la vitesse de 1500 
bands du modele III. 



GAGNANT DU CONCOURS TRIMESTRIEL 

Pierre PALMADE pour son programme PARADISE 
sur ORIC gagne un voyage en CALIFORNIE. 



GAGNANT DU CONCOURS MENSUEL 

Pierre PALMADE pour son programme PARADISE 
sur ORIC gagne 10.000 F. 



GAGNANT DE DEUX CASETTES SQUIRELLE 

Pierre PALMADE pour son programme PARADISE 
sur ORIC. 



GAGNANT DU LIVRE "AUTOUR DE LA BOUCLE" 
de Janick TALLANDIER des Edtions CAGIRE 

Philippe TELOUK pour son programme CROSSY 
sur HP 41 




GAGNANTS DES LIVRES DE LA REGLE A CAL- 
CUL 

Stephane CHEVRY pour son programme FOURMf- 
LIERE sur APPLE. 

Frangois BERNEZ pour son programme PR!C DU 
DANGER sur CANON X07 

Marc BAYAR pour son programme PILOT sur FX 
702 P. 

Christophe LEPECQ pour son programme RECHER- 
CHE DE SONS sur COMMODORE 64. 
Francis GRAND pour son programme GLOBUL sur 
VIC 20 

Nicolas COUROUBLE pour son programme ALU- 
NISSAGE sur HECTOR 

Philippe TELOUK pour son programme CROSSY 
sur HP 41. 

Bertrand GSCHWIND pour son programme MUSIC 
sur MZ 

Pierre PALMADE pour son programme PARADISE 
sur ORIC 

Philippe FOUSSEREAU pour son programme DE- 
PENSE sur PC 1251 

Pierre MARCELLIN pour son programme D.A.O. sur 
PC 1500 

Benoit GABORIT pour son programme DEMONIAK 
sur SPECTRUM 

Gino SCANU pour son programme SEIGNEUR DES 
ANNEAUX surZX 81 

Olivier GRABETTE pour son programme MILLES 
BORNES sur TRS 80 

Denis ROELANTS pour son programme FANO- 
RAMA sur TI99/4A b. simple. 

Marcel MAGNET pour son programme PILOTAGE 
sur TI99/4A b. elendu. 

Herve MARCHETTI pour son programme MANIAC 
sur TO 7. 



ERRATUM sur FX 702P 

Programme ALIENS du n° 48. 
L'ignoble avail devore 3 sous- 
programmes, nous avons reussi 
a les recuperer. les voici: 




LIST il 
16 »="6AHE OVER": 8 
=2:C)="-=(":PRT 
CSR is;cj; 
26 FOR J=l TO LEW 
i):F0R 1=15 TO 
8 STEP -1 

46 prt csr ii"- "1 
:hext uprt csr 
b;hidcj.i>;csr 

16:"-"; 
« 8=8*1 i HEX! J 
59 FOP 1=1 TO 188: 
HEX! UPRT :RET 

LIST 13 
18 PRT :F0R 1=1 TO 
3:PRT CSR 2:"( 
<«<CRRSK>«*»" 



28 PPT CSR 2:"«*t 
(CRASH)**))": :H 
EXT I: FOR 1=1 T 
59: HEX! I 

« RET 

LIST »8 
18 CI="-=(":l="flLI 

EHS":E=4 
28 PPT :F0R 1=18 T 

8 STEP -1:11(11 

T 4:PRT CSR I:C 

S:NEXT I 
39 FOR 1=8 TO 18:8 

PIT l:PRT CSR I 

ICCHEXT I 
49 PRT CSR I6IBS 
58 FOR 8=1 TO S:F0 

R 1=15 TO E STE 



EXT 1 
78 FOR 1=14 TO 8 S 

TEP -UPRT CSR 

II"- "::HEXT I 
38 FOR 1=8 TO 15:P 

RT CSR !:" -";: 

HEX! I 
98 PRT :SSB !3:YflC 
:RET 

P -1 
68 PRT CSR ft"- t 

:«EXT I: PRT CSR 
l*IiMD<8,l>;i 

E=E*1 

65 FRT CSR 16;"-": 
:F0R 1=1 TO ?:H 
EXT WOT 6 

66 FOR 1=1 TO 88:8 



PETITES ANNONCES GRATUITES 



VENDS APPLE lie + double drive + 
clavier numeriquo Sfipare + monileur + 
joystick * Imprimante APPLE Imagew- 
riter + carte 80 colonnes et CPM 
(annee 84) Le lout 15 000 F. a debat- 
tre. Regis CROENNE Tel: 001 12 75 

VENDS TI99'4A + B.E. + Munchman 
+ joystick + nomOreux programmes + 
cordon magneto: 2500 F. Alexandre 
BOYADJIAN Chomin dos Grods 07200 
AUBENAS Tel (75) 93 48 75. 

VENDS LYNX 48K sous garantle + 
magneto i joystick t jeux, togiciols, 
documentations (valeurs 4700 F.} 
vondu 3400. Monsieur CAZAUD 13 rue 
des Sycomores. Les LOGISSONS 
13770 VENELLES Tel: (42) 61 01 87 

VENDS SANYO PHC 25 (11/83) + 
synlh PSG 01 + Initiation Basic + Po- 
rilel t- 6 |oux. K7 Demo ol manuol Elal 
neul ■ 2000 F, a debatlre. Thomas 
OAMBRINE 20 mo Foch 57500 SAINT 
AVOLD To!: (8)792 80 35. 

VENDS SINCLAIR ZX 61 I cordons ' 
manuol d'utilisation * Ext Memoiro 16 
Ko + 1 K7 de joux (Invaders. Chosso 
au soits-marin , Golt. Tirour d'Ellte) + 
nombreux Bvrea (70 programme* pour 
ZX 81) Lo lout 900 F a dobntlro Joan 
Chnr.lopho DUFAU Tel: (3) 468 74 84 
{lo soir apres 18 H) 

VENDS pour TI994A manottos do |oux 
I cable magneto • parsoc * Tl Inva- 
ders <- 2 '99 magiuine" ¥ livre "Joux 
et programmes pour TI99' tome 1 Prix 
,1 Mbattre Contactor Aloandm ou 627 
76 84 



VENDS VIC 20 + Autoformalion au 
Basic + Magneto + K7 < cartouches 
jeux + programmes do jeux et educa- 
lils + Exlension 8K RAM Jean Luc 
ANDRAL 290 rue du Roilelet 31240 
L'UNION. 

VENDS ZX 81 complet (sous garantio) 
+ 16K + Manuol t livros ♦ K7 |eux 
divers (valeur 1165 F.) vendu 850 F. 
Andre BARKAT 90 avenuo Tolosano 
RAMONVILLE ST AGNE 31520 Tel: 
(61) 73 03 28 {do 17 Ha 19 H). 
ACHETE pour TI99/4A module mini 
memoiro avec eniballago d 'engine: 270 
F. + port. Monsieur AVOUDET Olivier 
58 rue des Alpes 26000 VALENCES. 

VENDS Tl 99MA ^ manetles + cable 
K7 + basic elendu > basic otondu par 
soi-meme i mini memoiro * parsoc + 
Pole position t- Othello ' Munch Man 
t Tl Invaders * Jou d'enlrepriso •■ 
Blasto t 3 tevuos "99 magasmos" I 
50 programmes pour Tl 994A > Lo Tl 
99 4A do I'atliche » 102 programmes 
pour Tl ' manuel extended basic * 
modulo mini memoiro: 4500 F Frederic 
DANIS 10 place Amplntrito PORT CA- 
MARQUE 30240 LE GRAU DU ROI 
Tel: {66) 51 48 62 laprOs 20H). 

VENDS VIC 20 (SECAM) 1984 • unite 
do disquetle > K7 jou • nombioux 
jeux sur disquetle > oxt 16K (valour 
7200 F ) vondu 5000 maxi vnnlo sopa- 
roo possible Hubert PASCAL Tol (40) 
20 05 18 

VENDS ATMOS 48K ■ poritel (gatanti 
jusqu'a juillel 85). 1670 F Pascal MIZ- 
RAHI Tel: 207 57 80. 



VENDS pour TI99.4A Exlonted Basic • 
manuols on anglais ol Irancais 1500 F 
v Mint momoiro • joux 'RING': 1000 F 
avec manuol Irancais 
VENDS modules Startrec. Parsec, 
Mash. Speech Editor t syntheiiseur do 
parole 1300 F avec manuols I Super 
Demon Attack. Tl Invaders. Bugortimo. 
Nomber Magic. Porsonnal record kee- 
ping: 200 F. piece avec manuols 
VENDS K7 "Extenled Basic Autoroulo 
Norbort * nombreux joux Lo tout 300 
F. Tol: (94) 07 16 06 (Houro repas) 

VENDS ZX 81 16K{0a'84) . 8 K7 jeux 
+ cours Basic * Hvre "102 program- 
mes - . Le tout 1000 F Joseph CICCO- 
LINI Tel: (42)80 41 16 

VENDS TI99'4A (11/83) I monoiios * 
cordons K7 t modules * livros + bol- 
lier < oxt 32 Ko 4 RS 232 * K7 pro- 
grammes neul (viilourr. 8000 F.j vendu 
5000 F, a debatlre Lionel PROVOST 
Tol: (6) 060 82 01 (apres I8H) 

VENDS imprimnnto graplnque X 710 
pour CANON X07 vendu flvoc cordon 
Oalimontation t rouleaux i stylos i 
valisotli! do rangomont prix il dfibattro 
F BABOT route do Nanlos 35130 LA 
QUERCHE DE BRETAGNE Tol. (99) 
96 21 33(apr0s t9H) 

VENDS TI99/4A t munottos t cable 
K7 > pnso Perilol I Interlace SECAM 
< adaptatour i modules I 6 K7 origi- 
nates < 6 livros sur TEXAS h lo Tl n 
lallicho t 50 programmes pour Tl. Le 
tout 2900 F Eric DE BANTEL Tel 727 
92 51 {apiOs 18 H 45) 



mm 




-nouveau- 



DEMANDEZ LE PROGRAMME 

Ache tez vos logiciels les yeux fermes, nous les avons testes pour vous ! 



Nous avons selectlonne pour vous les mellleurs logiciels actuellemont dltponlbtn on France Noui 

pretentions pas que cettetlste est complete et definitive et II est evident que nous yralouteronsregulte- 

cherchereien vain certains programmes quljouissent d'une 

■' 9'ace a lapublicite etaux consells des vendeurs qulne peu- 

part nos propres prodults : les 



mt des programmes. Pourlant, 
bonne reputation el qui se vendent 

vent pas connaitre tous les logiciels disponlbles. Nous avons cla 
Hebdoglclel Software. 

Les prlx sont, nous I'csperons, les mellleurs do marche et les abonnes - anclens ou nouveaux - bene'f- 
clent en plus d'unc remise de JO ft, Si vous etes nombreux a nous sulvre dans cette experience nous 
pourrons rnpldement arr/vcr a falre balssertes tarlts des lournisseurspour uUcindre t'oblectit que nous 
nous sommes llxe: ramener les prlx a une plus juste valeur I 

Les classements sont talts en tonctlon de I'lnteret du programme et ne tlennent pas cample des prlx 
c-estavous dejuger de /'oppoi-f un/fe dela depense.N'oubllezquand memo pas que si le rapport quail- 




i VOUS-MEMES 




BONDS COVM*s:-E s DECfJPSB OLrCECO=;Er, 
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PATROUILLEUR DE L'ESPACE 



Le jeu se decompose en six tableaux differents. Le but pieges risquent de vus arreter avant de pouvoir la de- sur la louche grph et tape; zzzzzzzzzihrrsrrrrrs. Revenez 

du jeu est de detruire la base d'une planete ennemie. truire. Almors ous pourrez continuer vers la seconde en mode normal en appuyant su la ruche grph et finissez la hgne 

Pour cela vous disposez a chaque partie de 5 vais- base... avec "; 

seaux de combat dun ranon laser ainsi nue ri'un ° ur es au " es ll9nes ' la Procure est la meme pour laper les 

beaux ue corneal, a un canon laser ainsi que dun caracteres enlre parentheses. 

nombre illtmite de bombes . Vous devez tout d'abord Xavier VANNEREAU. (e = espace) 

affronter 5 escadrilles de 5 chasseurs ennemis, pusde- Ugne H40 "eeeeeeezZeeeeBeeeeeS" 

truire une montagne pour acceder a un tunnel a I'aide Mode demploi: K tiro ^^^ItVBBDLM- 

d une navette. Ensuite. dans le tunnel, il faut detruire Dabord, tapez le programme contenant les caracteres speciaux. Le teste du programme ne presente pas de dilficultes 

les futs de fuel afin de gagner du carburant. pour pou- Fai,es nuN P UIS offaoaz le apres lavoir enregisire. Tapez ensile le Pour lirer uttliser la barre d'espacement pour lancer les bombes 

voir continer et eviter ou detruire les fusees qui vous ^«^l a „™^?,,n |e , U ,.,n 0t ! S ,?n ^ '; Z ,ln ^eme " , T Blques d,l,lcyl, f s a ,a P er utiliser la louche B et pour deplacer la navette dans la grotte. utiliser 
, ,- ,- iii. ,;:._, les "gnes 1 1 ju. 1140, i ibu, i ibo. pour cela voici une explication: M 

menacent. Enftn, vous arnverez a la base, ou bten des ugne tt30 : tapez 1130 aa= 5 locate o.oprint- puis appuyez 



1 RFM 


Xavltr VANNEREAU 


7 REM 


CANON X-07 


3 RFM 


P«t rou 1 I Irur dr 1 ' tipac* 


4 RFM 


l*r Progr».r.» ; CARACTERES 


s RFM 


?*»e ProgrjuD* : JEU 


178 


FONT*! 178) -'OB. 120,248,235, 255,255 


,733, 


P3S- 


17"? 




130 


FON7*! 130) -"0,0, 96, 120,232.252,252 


,737* 




131 


F0N7*( 131 >-*0, 0,0,0, 96, 174,257,232 



137 FONT*! I37)-*0,0.0,0,16,40,16, 56" 

133 FONT* I 133) » '0,0,0,0,0,0, 96,248* 

134 FONT* I 134) "-74, 174,0,0,0,0,0,0* 

135 FONT*! 135) =*0,0,0, 0,0,4, 12,60* 

136 FONT*! 136)-"O,0,O,0,O, 16,748,732* 

137 FONT* I 137) -"O, 0,0,72, 52, 72, 0,0* 
13P FONT*( 1 38 I--0, 0,0,37,24, 37, 0,0* 

142 FONT*' 1471=* 128, 4, 64,8, 178,36,80,32" 

143 F0NT*(I43l-"0,0,0,0, 136,4,4,4* 

144 FONT*! 144) --757, 757, 757, 774,248, 194, 
757, 774* 

143 FONT* I 145)-*73?,?3?,248, 176,0,0, 178, 
64- 

146 F0NT*< 146) -"757, 184,0, 112, 136, 112,80 
,80' 

147 FONT*! I471--23?, 1 24 , 2B, 8, , O, O, O' 

148 FONT*! 14Q)-*252,724, 1ZB, 0,0,0, 0,0" 

149 FONT*! 149) -"4,4,4,4, 4, 12,12,12* 

150 F0N7*< 150)^*252, 112, 64, 0,0,0,0,0" 

1 3 1 FONT* (151)-* 252 , 25? ,1 96, 0,0, 0,0,0* 

157 FONT*! 152) -'757, 752,60, 12,8,0,0,0" 
133 FONT*( 133) --252,237, 252,252,56,24,0 
,0" 

154 FONT*! 154) -*?S?, 737,752, 240, 112,48,4 

8,0" 

133 F0NT*(15S) --737,75?, 75?, 60,56,24,24, 

24- 

ISA FONTS! 156 I -'23?, 732, 757, 224, 0,0, 0,0* 

137 FONT*! 157) --252,252,240,0,0,0,0, 12* 

158 FONT*! I 38) -*252, 257, 0,0, 0,0. 48, 232" 
139 FONT*( 159)--**HlC,*.H14,fcH14,*«HIC,*<H14 
, *.H14,*«H1C,I«HI4" 

224 FONT* 1724) --0,0, 0,0,0,0, 0,252" 

775 FONT* (775 I --737,757, 757, 757,737,757, 

737,737- 

276 FONT* (776) ="0,0,0,237,757,0,0,0- 

777 F0NT*(777)-*O, 0,0, 0,0, 0,0,0" 

778 FONT* ( 77ft) -"0,0,0,0, 16, 40, 16, 56" 

729 FONT* (279) »-0, 0, 0, 0, O, 0, 252, 2S2- 

730 F0NT*!730) --0, O, 0, O, 0, 252, 252, 252- 

731 FONT* (73 I >=*0,0,0,I2,12,I2,12,12* 
737 FONT* (737) -*0, 0,0, 0,0,0, 252,252* 
233 FONT* I 233) = -0,0,0,0,0, O, 0,232- 

736 F0NT*!236)-*(.HFC,»,HF0,=7H60,t>H40,*.H00 
,*.H0O,".HO0,*.H00" 

737 FaNT*(?37)--*.HOO,*«H0O,*.H4O,I.HEO,fcHE0 
,«<HF0,'.HF8,*.HFC- 

?39 FONT* (239) --774, 16, 224 , 64, 32, 60, O, 2S 



741 FONT* 1741 ) -'774, 1 6 , 60 , 19? , 97, 124,757 

,757- 

747 FONT*(?42)--97,80,232,4, 136,200,248, 

232* 

244 FONT* 1 744 )=*32, BO, 32, 32, 80, 752, 60, 25 

7- 

743 F0NT*(?43>«"76, 177,76,76, 177,757,252 

,732" 

746 FONT* (746) ="757,0,0,0,0, 0,0, O* 

747 F0NT*I247I =-0,0,0,0,0,0, 0,0" 

748 F0N7*(748)-*?37,757,?57, 757, 0,0,0,0" 
249 FONT* (2491 =* 252, 252, 252, 0,0,0,0,0 * 

230 FONT* (230) --737,257,252, 252, 252, 232, 
252,752* 

231 FONT* (731 )-*0, 0,0,0, 0,28,252,252" 

732 FONT* (752 I --0,0, 0,0, 0,0, 232, 232- 

733 F0NT*(233I-"12,I2,12,12, 12,0,0,0" 
254 FONT* (254) -•732,252, 0,0,0,0,0,0" 
233 FONT* (235) --737, 737, 237, 732, 252, 257, 
737,732* 



3 CLFAR130:DFFINTA-7: V- 7: DI MA (8) I DTMB ( B 
I "SC-0 

10 CI K: J-3: CONSOLE, , ,o,o:R-7:p-3:f*-stri 
NG*( 19,32) 

I0O G0SUB3000: IFJ<]THENR-].5:G0TD14O 
103 CLS: B-25:FORA-0T01 19:B-B-INT1RND(PA 
)»8-3) : IFB<?0THENB-2O 

no line(a,31)-(A,b>:nfxt:fora-iootou9: 

I INF (A, 31 I - (A, 20) :nfxt:locatei6,3 

170 PRINT (6-7) I :F0RA-9OTOI00:L INF (A, 31 >- 

(A, J 70- A) :NEXT:A-5:B-IO:GOT0300 

140 0OSI1B30O0: CLS: B-32: AA- 1 : FORA- 3TO60 

:B-F-INT(RNIMPA) #5-1 1 : IFR<9THFNB-9 

150 LINE (A, 311 - (A,B) ; NEXT : FORA-60T0 1 19: B 

-ft* INT IRND(PA>#3. 3-1 ) : IFB>?OTHENB- 13 

135 ifb<5thenb-3 

160 linf(a,31 i - (a,b) : next 

170 f0ra-60701 1 9: f0rb-25to29: preset 1 a, b) 

:nfxth,a:fora-90toi I9STEP7:peft ia,hi 

iflo nfxt:a- 5:p- 3:goto430 

70O PRFSFT (A, B I : PRFSFT! A- 1 ,B-1 ) : PRESET (A 

-I ,B- 1 I : PRFSFT IA-7.B) : PRESET (A-3.B) 

703 PRFSFT (A-4,fltl I :PRESFT (A-4.B-1 ) 

7 10 C-STICKIOl :n-KTBIG(l) : A-A. 3! B-B-R« (C 

-I ) *(*)-] I •R«lC-5)fl(D-l > :f-strig<o> 

715 IFA>1 I87MENA-7 



:psft ia-3, 8) :pset i 

17HENG0SUB1900 



770 TFB<I7HENB- 

775 RETURN 

730 CIRCLF(A-1 ,1 

,B-I ) :PSET!A-4,1 

735 IFPOINT(A,BU )--, 

250 RETURN 

300 FORF=0TO4: A (E ) - 1 1 5: NEXT 

305 B(0)=3:BI1)-7:8!?)"U:B!3)-15:BI4)"1 

3) D F0RF-0TO4: IFA(F1 >1 16THFNNEXT: IFL>4TH 

F.NL-0: J- J- I : GOTO 1 0OELS£(iOTO3 1 

313 G0SUR40O 

370 0-O-INTIRNDI 1)*170-E-J) ):P-Pt(B-P)/( 

S*(J/5)-E):A!F-)=0:B(F)=P 

375 IFO<7THFN0=l 15 

330 IFP>19THENP=19 

335 PSFT(0,P) :PSFT!0»1 ,PJ : PSET (0>2, P- 1 ) : 

PSET(0+2,P* 1 ) 

340 TFP>B-7ANHP<B*?ANDD>AANDRND10) >.5THE 



NGO! 



420 



-3ANDG 



345 G0SUB350: A(E) =0:B(F1=P:NEXT:G0TD31 

350 GOSU8?00:GOSUB730: IFF=-1ANDK=0THEN 

SUP360 

355 RETURN 

360 IFA*50>1 17THFND-1 17ELSE0-A*5O 

365 F0RG=AT0DSTEP7! PRESET !G-?,B) :PSET( 

P> 

370 IFP0INT1G*! , B) -- 1 0RPOIN7 IG*2 , B) =- 1 

FNBFFP10, 1:GOT0380 

373 NEXTG 

375 PRESFT(G-7,B) : PRESET (G.B) : RETURN 

380 F0RM=0T04 

385 IFB>B!M) -?ANDB<B(M) .?AN1 

<A(M) *2THFN395 

390 NFXT:G0T0375 

393 L-L»l :N-E:E-»M:SC-SC*70'GOSUB400:A!M) 

-lieiQ-A(N) :P-B(N) :E=N:G0T0375 

400 o-a(f) 1p-b1e) : preset !0,p) : preset (0*1 

,pj :preset(0*2,p-i i 

405 prfsft(0»2 ,p*1) {return 

470 h-a* (0-a) /2:line(0,p)-1h,p):beepo,5 

423 fori -1t0j: next :k-1 : g0sub330: k-o: l ine 

!H,P) - !A,P) 

430 FORI»0-1TOASTEP-7*PRESFT( I ,P1 : PRESET 
(I-1.P1 :NEXT 

433 IFP<B*?ANDP>B-?THENG0SUB1900 
: RETURN 
440 RETURN 

430 GOSUB700:GOSUR?30: IFTKEY!*B")=-1ANDW 
=OTMFNG"l: 7-A-i:U=B*l 
453 IFG007HFNGOSUB530 
460 Z-7.* 1 : IFZ>3THEN500 
465 IF7=ITHEN475 

470 TFTKFY! *N* I -- 1 THENGOSUB700: GO 
SF430 

473 X-RND(1 )*(B/7) »A'4 : Y-RND ! I ) * ( 
B/6) *B 

480 IFX< I0RX>1 1BTHFNX=A0 
485 IFY< 10RY>31THENY=2 
490 PSFTIX, Y) :G07O450 
500 7 = 0: PRESET (X, Y) ' CIRCLE (X,Y) , 1 
305 IFX-1<AANDX*4>AANDY+2>BANDY<B+ 



Y*l ) :PRFSFT IX,' 



IT,U 



:u=u+?: T-T- it<-60) 



5IO PRFSFTIX 

-i , y) :preseti: 

515 G0TO450 

520 GOSUB1900 

5?3 G0T0510 

530 U"l :prfsf 

>60) 

335 IFU>31THENU-31 

540 IFT>90ANDU>10THENG=0:W=0:GOT0450 

345 IFT<OTHFNT-0 

550 IFT>119THENT-119 

355 PSET(T.U) 

560 IFPOINTIT-1 , U) -- 1ORP0 INT ! T-l , U-l I -- 

THEN580 
563 IFU>30THENG«0:U-0 
570 RETURN 

580 befpt, 1 :f0rj-u-2tou+7:fork-t-7to7*4 

ifj>3iorj<0drk>1190rk<o7hen590 

585 prfse7 (k, j) :sc-sc*1 

590 nextk, j ! g-0 : w-0 : g0t0430 

600 A(1>-o:a<7)-i;a(3>-?:ai4)-i:a(5)-o: 

605 A (6 I--?: A (7)--?: A(B)-~7:P< 1 ) --1 :B(7 

--i:B!3)-o:b(4)-i:biS)=i:B(6)=i:B!7)-o 

610 R(8)=-I 

613 IFA>1 15THENA-3 

670 IFB<2THFNB»? 

623 1FA>1 10ANDB>75THEN900 

630 GOSUB650 

635 GOT0613 

630 F-STICK(O) : IFPOINT ( A»2, B* 1 I--10RPOII 

T(A»2, B- 1 1--1THENO0TO1930 

655 IFF-0THEN670 

660 PRESET { A* 1, 8) : PRFSFT ( A. 7, B J : PRESET!, 

,8-1 ) ;PRESET(A,B- 1 I 

663 G-STR1GI I I :A-A- ! G- 1 ) *A (F 1 : B-B- !G- 1 ) 



IPSE7 (A, B-l 
•B*1--1THFNK-1 



670 LINETtA* 1 , B) - (A<7, 

(A,B» I ) IRETURN 

600 0OSUB63O: IFTKEY 

:N»A» I 

683 IFSTRIG!0)--1THFNG0SUB730 

690 IFK-1THENGOSUB700 

693 RETURN 

70O PRFSFT 1W.M-1 ) : FORL- 1 704 : PRESET !, 

I IPSET (N,M) : BEEP1E3, 1 

703 IFM>7O7HENK-0:GO7O71S 

710 m-m« i :next:w-n:n-n>i:return 



715 


E*=MID*(A*,N/6* 


, 11 :IFE*-CMR*!132»T 


TMEN730 








770 


IFF*»CHR»! 129*T 


ANDP< 


2THENSC-SC 


30 


G0TO735 








7?5 


RETURN 








730 


FORD=1T013:0-0* 


: ifo< 


I5THENPSE7 


o- 


,29 


:next:sc-SC*3 








733 


A*=LEFT*!A», INT 


N/6) > 


* ■♦RIGHT* 


*•.» 


ie- 


NT(N/6) ) :K-0 








740 


L0CATEN/6,?:PRIh 


TCHR* 


142) ! :forz 


IT 


3:BEEPZ*5, 1 :next 








745 


L0CATEN/6,2:PRINT- *i 


GOT0690 




750 


M-40tA: IFHM19THENH-1 


3 




7SS 


F0RG-At?T0HSTEP2:PRESET!G-2,B) 1PSE7 


G.B 










760 


IFP0INT(G*1 ,B)- 


10RP0 


NT •G + 2.B1- 


IT 


EN765ELSE790 








765 


IFBM5THEN770ELSE790 






770 


E*=MID*(A*,G/6* 


, 1 ) 






773 


IFE*-CHR*(132*T 


THENN 


g*i:m-b:go 


07 



CANON 
X07 



c 



# 



,29) : If 



7B0 IFE*-CHR*(129tT) ANDP< >2 THENN-G 

-B:G0TO733 

785 IFPOINT(Gtl,B)--lTHENRETURN 

790 NEXT:PRESET 1G-2.BJ : RETURN 

800 0-0-?:PRESET(O,29) : PRESET (O 

Of ZTMENI950 

80S RETURN 

BIO IFSCREFN! J,2) - 129THEN81 5ELSERETURN 

813 L-J*6*Z:FORD=19T08STEP-2:LINE(L,D) - ( 

L,D*I) :PSET(L'1,D*2) ; PSET (L* 1 , D*2) 

820 IFL>A-2ANDL<A*4ANDD<B*2THENCIRCLE(L, 

D), l: CIRCLE (L,D) ,2:GOTO850 

825 PRESET !L*t,D*4) : PRESET (L-l ,D*4) :PRES 

ET(L,D*3> :PRESET(L,D+2) 1BEEPD, 1INEXT 

830 IFP=OORP=3 TtTENLDCATEJ, ltPRINT* 1 

833 A*=LEFT*(A», INT! J-l) ) »CHR*!F0) tRIGNT 

*(A*, 18-INT 1J-1) ) -RETURN 

850 G0T01950 

900 D*-STRING*(19,225) : GOSUB3000: O-l 15: F 

0-224 

903 GOSUB7100:AA-7:A*-F*:FONT*( 129)-*0,0 

,0,0,32,32,80,232* 

910 F0RC-1T0 60:GD5UB800: A*-MID* ( A*, 2 , 18 

) *CHR*( 128+RND! 1 )»6) : J-RND! 1 )#S*A/6 

913 IFJ>1BTHENJ-1B 

970 GOSU8B10: LOCATEO, 2: PR I NT A* I : GOSUB6B0 

"NEXT 

975 FONTS! 129) -•0,0,0,80, 136, 36, 36, 84* : G 

0SUB3000 

930 BS-F*: A*-F*:P-l: AA-3:F0-143 

935 GOSUB2100 

940 FORC-ITO 60: GOSUB6B0 : GOSUB800: ONPGOS 

UB100O, 1050: LOCATEO, 1 :PRINTB*** **A*| 

945 G0SUB6B0:NEXTC: AA-4 

950 IFP<2THENB*-F«: A*-F*: 1-1 

951 GOSUB3000 

955 P-P+ l:T-96: IFP-2THEN933ELSEU30 
1000 E-E*RND(1 1*4-1.7 

1003 ifeotmene-1 

1010 ife>6thene-6 

1013 a*=mid»(a*,2, 18) >chr*( 127.e) : j -int! 

rndi 1 )#2*a/6) : ifj>18thenj-18 

1070 b*-mid*!b*,z, 18) *chr*( 149.e) : g0sub8 

io:return 

1030 R-INT(RND(l)#lI-5) :E-E»R: IFEJ9THENE 

-9 

1063 IFE<2THENE-2 

1070 IFI-2ANDK >EORI -5AND1 < >ETHENI = I 

IGOTOIOSO 

1073 I»E 

1080 A*-MID*(A*,Z, 18) »CHR*(Z23*I) 

1085 B*-MID*!B*,2, 18) *CHR*(245»I I IRETURN 

1130 AA-3: LOCATE0,0:PRIN7-«a«aaa*«ayvvv 

lvuvvv+'l 

1140 LOCATEO, 1 : PRINT* mm m 

■ft 

1150 LOCATEO, 2:PRINT-««**» *m V**,*" 

1160 LOCATEO, 3: PRI NT ' •*■«»!» | pqrotu 

1190 A" 3:B-10 

1 194 G0TOI30O 

1200 F-STICK(O) : 1FP0INTIA*1,B*1 1--10RPOI 

NT(A»1,B-1)--1THENGOT01930 

1205 IFF-OTHEN1220 

1710 PRESFTIAH , B) :PRESET (A 

A, B-l) -PRESET' A, 8+1) 

1215 G-STRIGI 1 1 :A-A+A!F) - <G< 

♦B(FI-(G--1>*B!F) 

1220 LINE(A*1,B)-!A*2,BI :PSET(A,B- 




+ 1 ) 



1775 IFSTRIGIO 

1Z30 RETURN 

1730 G0SUB120O 

1260 IFA)40THENG0SUB1300 

1?90 G0T01230 

1300 LINE(79,0) - (79, 10) II 



,B) :PRESET 1 

1 1 #A!F> : B-B 

PEE 

THENG0SUB14O0 



tNE !B?,0) 



(OZ, 1 



1305 H-? 

1310 C-30: D-15 

i3?o forf-otoio:gosubi2oo:prfeet (C, di :be 
EPS, 1 

1321 C-(C*A*1 I I7\ D-<D<B*1 1 /7SPSET!C,D> 

1322 IFOA-lANDC<At 3ANDD >B-?ANDD< B*Z7HEN 
CIRCLEIC, D) , 1 : BEEP 1000, 3 

1323 IFA>80THENPRE6ET(C, D) : C-3: SC-6C • 200 
:G07Ol33O 

1325 NFXTIPREGETIC.D) 

1330 IFRNDIOI >.0ANnA(00TMCNl310 - 

1332 1FA>OOTHEN1323 



^-4\ 



^ 



V 



335 GOSUB120O:G0T01330 

350 GOSUB1200:LOCATEI9,0:PRIN7CHR*( 139) 
: LOCATE 19. 1 IPRINTCHR*! 159) 1 :H-1 
335 C-C- (C-B) /31 IFC< 16TMEN PSET(116,C1: 
PSET! 113.C) : IFA<807MEN1310 
360 IFRNDIOI >.3ANDC< 1 6THENG0SUB1 370 
365 GOT01350 

370 LINE(1I3,C)-(A,C) : FORD-1 12T0ASTEP-2 
PRESET !D,C) : PRESET !D*1 ,C) 1NEXT 

371 IFOB-?ANDG<B'2THEN1950 
375 PRESETIA.C) :RETURN 

390 GOT01330 

400 J-30 + A: IFJ>1 19THENJ-1 17 
403 F0RI-A*4T0J: PRESET ! 1-1 ,8) :PSET 
I.B1 
1410 IFPOINT! I*1,B)--1THEN1430 
1413 NEXT 

70 PRESET! I ,B) : PRESET! 1-1,8)1 RETURN 
30 IFH-2ANDB< 14THENPRESET 1 \* 1 , B) 1SC-SC 
:G0T01420 

40 IFH-1ANDB-CTMEN1700 
1460 GOT01420 

1300 J-0: IFA> SANDAt 16THENJ-7 
1310 1FA>20ANDA<28 THENJ-4 
1317 IFA>25THENSC-SCtlOO:GOTOI600 
1515 G0SUB1200 
1520 G0SUB810 
1530 GOT01500 
1600 D-l :C-23 

1610 LOCATE 7,3:PR1NT" " 1 : C-C *D: IFO30T 
HEND--Z 

1615 IFA>46 THENSC-SC»3O:G0T01750 
616 IFC<?2THEND-2 

620 LINE (43, 24) - (43, 33 -CI ! LINE (42, 31) -( 
2,C) :LINE (46,24) - (46,55-C) 

621 LINE 143,31) - 143, CI 
673 G0SUB120O:GOT01610 

1700 PRESET ( 1 14, CI : PRESET ! 1 13,C) : PRESET ( 

16.C) :SC-SC«30 
1705 IFTKEY! -B" ) --1 ANDB ) 1 ATHENFORC-7T09 
0STEP2: CIRCLE IA.B) , C : NEXT : PA- 1 : GOTO 1 BOO 
1710 G05UB1200:G0T01703 
1800 SC-SC«300:GOSUB3000:GOT010 

1900 gosub?oo:gosub200o:rfturn 

1930 0-1 15: GOSUBZ000:ONAAG0r 0140, 903,930 

,933, 1 130 

2000 BEFP1E3,3:BEFP4E3,3:HEEP2E3, 2:a-4:b 

-12:V-U-1 : 1FV( ITHEN3200 

2010 IFAA>17HENGOSUB3030:RE7URN 

2015 RETURN 

2100 CL5:L0CATF0,3:PRINTD*l : LOCATEO, o: PR 

INTDSI .'RETURN 

3000 GOT03030 

3030 CI. SI LOCATES, 1 : PRIN7 * Scant : * | SC I 

3060 L0CATE1 , 2! PR INT * V« I »m«»u» [■ 

3065 IFV< 1THEN3080 

3070 FORA0-1TOV: Al-AO' 12:L0CATCAI ,7: IFAA 

) 1TKFNPRINTCHR*! 138) I :G0T0307S 

3077 PRINTCMR*( 137H 

3075 NEXT 

3080 F0RA0-lT030O0:NEX7:A-3:B-12! RLIUKN 

3200 GOSUBSOOO'END ■ 



POLICE DEFI 



suite duN 51 



Vous avez toujours reve de devenir policier, votre 
chance est arrivee mais faites attention, un assassin 
meurtrier (evidemment) risque de vous envoyer outre- 
tombe en un coup de cuiller a pot. 

E. MICHELUCCI 

Police Defi esl un "melange" de Irois jeux, qui demandenl respecti- 
vement Irois qualites: la memoire. la deduction et la dexlerite. 
Je ne vais pas vous expliquer en details le principe, car tout est 
resume dans !e programme lui-meme. Et puis, les pages de trace 

i« pPtMTi»i?2. ,i -.TRB':xz>"Cccrcrctcccrecccccccctccc- 
137 pPimTwyzv-ccccctcccctcccccctcccccccci:" 
iss WNTTRB'yzrcciTCCcctrccrtxcccrrtccccccc" 

159 PPINTTfiB' XZ vtCCCCCCCCCCCCCCCCCCCCCCCCCC" 

;fi? pRiNTTpe'vzv'cccrccctrrcccccircrcc" 

161 PRIKT-CCCCCCCC-i 

162 PPINTfl536*XZ."CC-= 

'63 RETURN 

154 PPINT547l*XZ.CHPtM33);CHBfl47vrHP*f 16' 



CHR«133>ie535*XZ 

165 PRINT"CCC"; 

166 FF-9 GO$UB291FOPI«1TQ3099 NEXT RETURN 

157 ZI=Y» PRINTIM,ZI> G0T-UB182 P = ? W= 16? 1 ■■"> F^i'f'vi :-r=ci .ro=67 
IFUfl*ITHEW-'rt = >? = = ri.w::r[ -;cr;rri p.-,, p£TI 1PN 

168 CLS PPiHT(>466. "Bravo "i ":WM;" I" 

159 F0PI-i4BflTn|?flPi5TEP-l B=USPf I ) -NEXT ■ FnRI=IT0899 'NEXT= RETURN 
179 G0SUB296 PRIMT«4«4, "Oo*wu,«« '" Ay uiivant "'"- G0T01 

171 CLS n«=hm* PRIMTt453,«a«tvo '" ".NM*." ■ Vous et-s un 

rMikPion i"" l«=im q;i-.i.i?16? yf = i :-"F=5« Gr^iiei^.PETUPN 
J72 i GOSMB206 PPIMTM^.-C'est vralmCTt don»«9e !M Ru sulv* 

173 NM»=-" VF>51<XF-77>COSUB196>FQRI-1TD43Q0 HEXT'Q-1 -GOTO10 

174 CLS PPIUT!>459. H 'Jr, NOMltt B.V.P..." 

'75 PERpyv if>:x: .]C^?THENI73 

!76 L=PEEK' '6561 * H=PEEi<M6562 VHt=L*HT236-27:GOSUS17<f:p0K£1656I 

■L PWE16562.H-HL=HL*3 CC'SUei79 C = *l a.-f.ij& I sa 

177 IFPEEKa6396H>201THENDEFUSR-C'CW>"aOXX.N"ELSEFWE16326,L'P 

178 FOR i=0TO24 = C= t +HL GOSUBI Rfi ; PEFiOP POKEC • 8 1 NEXT ■ PESTGPE ' RESUME 

17? H=IHTfHL-'256>--L=HL-H*236 = RETIJPM 

19? IFC>327S?'C«C-65536 

181 PETtJRH 

1*2 e=USP'1924 'B^nl-" 1553 > B=USP' 1743 ) .8«USR< 1965 > = B-USRX2219 > = 

t-USP' 153*; ■ -.=iJl=' l74g-> 5-='JSR<: 1383 >; B-USRM 324 VPETURH 

193 PPINT«?59."C-. = PRIHT<?9,"ECC*LCCCCCCC"i >P0RI«1T03 'PRINT50, J >GQ 

■":'.;512 B=U?P'?333> PPINT-CCECC" F0PJ=lTC98 NEXT . PPIHTf»0, "CCCEXC" - 

'-n-vsi7 3='."='??3?; FO'-fciToge^JExT next prints. = 'Cosub^b-usp 

'3??3"> PET'JRM 

164 DATR269.332S, l 7?*. 5313.3.6931 .6315.5128. 13464.99,99 

' ■" ■ -~- ■ii': , ' : :' ~' r ■-V' , ;j.^.fTo:.-?^v..;^':^. ; ?j.ut . ^a , 2 - 

186 DRTH5235, \, 3712 ,7953,3,3517, 2290, 6859. 4, 4736.3.2937,7964, 3,3 
'"221 3.3*25. 2. 7552- 4224, 19353.6165.8149.11291,99. 99,99,99,99 

■-..-.■-:. v.-r. c :: ,;:n = -,-■ ;, . . :.,v ; , ? - ? . ;^ ? . p ? 2f> . ^ c. ■. , -VS7 .-?. 7">7^ . = "" 

3,7339.19433.23,6991 .6551 5933. 1?939.99,99 

1==' [RTR73?? .?329-?555. 9563 -9329. 9553. 9329, 8563. 6329. 6361, 9333,1 

S859-99.99 

193 PRTA7339, 8329. 9355, 8363. 3329, 9333, 8329, 6563. 3329, 6827, 6833,1 

1291. 93. 99.2.6831. 6561. 3327. 19571, 93, 29. 6991. 6561, 8327, 172 80, 99, 

99.489S.6K?*. 5333. 6361 ■7339.8333,6361.6361,7333,7339.9327,20332. 

33. 99-99 

199 MT8491 1-4248. 4487. 4487, 4992, 4394, 4497, 3767, 401 1.4249, 4487, 4 

339.14299.11911 

191 DATR4989, 8839, 4980, 3839, 4980, 6316. 6923. 6913. 8936, 10,3248.834 

4 . 5243 . 3344 . 5243 . 6923 , 6949 . 6923 . '.2715 

132 DRTR4999j4S45,S7. 1303. 3493.3272.59.4543. 193fin,29,4739,7329,2 

5.5525. -?774, 25. 4224. 4494. 3992. 4494, 7848, 25. 4494. 3992, 44 94, 4499. 8 

873.23.3777.19.20417 



sont precieuses!! 

Mais avant de faire Je RUN "in-exlremis". il laut tout d'abord mserer 

les graphismes dans le programme. Pour ce (aire, tout depend de la 

capacite de memoire (Koctets) de voire ordinateur. 

Deux cas de presentent: 

1) Vous avez 32 ou 48 Ko de memoire {RAM}: 

aJTapez le programme en enlier (sans laire d'erreurs!!!), puis sau- 
vez-le. 

b)Faites RUN 500. et attendez que I'ordinateur affiche READY (vous 
avez le temps de vous (aire un cafe et meme de !e boire!!). 

c)Sauvez cette nouvelle version, car si vous n'avez pas tait d'er- 
reurs, c'est la bonne!! 

2) Vous n'avez que 16 Ko de memoire (toujours RAM). 

193 r>FITR7948. 4999, 3248, 4999, 3248, 4523, 3906. 4770, 19433,3,4096,434 
5. 11179-6.4096,4779,11938,10.7840.4999.3248.4999,5248.4323,3096, 
4779.18433.3.4996.4545, 11179,6,4996.6930.6030,10433 

134 0flTfl9614. 2. 2753. 1.2957, 1.2957. 1,2733. 1.2937. 2937, 1,2733, 1,29 
57,1,16497-10,3441,6923,2.2937,5325-2-2753,11237,99,99 

135 0RTfll99.285. 127.19, 173,22,6.76.69,9,0,8,0, IS. 23e, 238, 1,211,2 
35.13.32.242,21.32,238,291 

196 Frip^X^iTriYF PERDXN i NEXT : FfJPXX«lTGXF.REROXH^IFXH<109THEH199 

197 B-IJSR(XH) 

133 HEXT i RESTORE ' RETURN 

199 FCPLX-lTOXH.NEXT^GOTOige 

289 C0SU8293' IF JJ<3THEHPRINTi»474, -COMBAT <- , JJj ■>- , .RETURHELSEIF 

.U"3TNEHPl?INTri472,' , C0MeflT FINAL '";= RETURN 

291 F9Rr;F = l TQFF :e=USRf 393 )GO' 1 lJB297F0PXF«lT01'B-fJSR( 237) 'HEXT'G 
0ti,:cj95 B = USPf 439) = NEXT 'RETURH 

292 R-INXEY*'IFfi---THENPffINTniK," -, ' 0-1J3RC269 ) 'PRINTBIK, "EN 
TER" i = B-U3RC 269 ) G0T9292ELSERETURN 

237 c: = ii?P-:299^ I-I + l=J-J-l'IFJ-I6THENPPINTl»I»64-64.EN»;8J»64-64, 

MIDDEN*. 1.63). -POKE! 6357. 137 COT0293 

.':■.; ;r ; = v:u-!.- E ,.--;.. :i..r = ppiMTr>l*64-64.ENfjf.i?64-64,EN*i ■G0T0283 

295 B-U?P'299VPPlHT(?64tI, PRINTIi64»J, = I-=I-1 ' J-J+I ■ IFK0THENCLS' 

PETUPNELSE203 

206 KP=PNC"2v IFKP=lTHENI=.8 = J-17.CGSiJ8Z03=I-S'.J-7-GOSfJB295'RETUP 

'-h\ ■" 1 =0 J= 1 7 r;osijB239 ■■ PETIJPN 

297 Ifff- «THOV0KE13B49fl91'PQKElSe0B,l»>IEnJRHEL28BnUtN 

293 IFFF.- >2THEHP0VE1 5649. 147 P0KE15333. 163 PETURNELSERETUPN 

299 F0RI=-9T014 PP I NT? 1*64, EH* I ■ 9tiSH 238 ) MEXI printmid«EH*. l.S 

3>J P0KE16333.197 F0PI-14T093TEP-1 = PRimrai*64, i B«USP<290 )■ F0PJ«1 

TOI 5 = NEXT = HEXT = CLS = RETURN 

219 i 

431 OATft B7.ee,e7.B8,B7,BB,B7,BB.B7.P8.B7.B8,B7.88,87,B8,B7,BB,B 

7.BB.B7,BB,B7.BB,B7.B8,B7,BB.67,88.B7,BB.B7.8B.B7.BB.B7.8e.B7.BB 

,B7.BB.B7,Be,e7,BB,B7.8B.B7,8B,B7,88.87,BB.B7,BB.B7,BB.B7,BB,07, 

BB,e7.BB.FF.FF.29,29.20.29,28,29,R0.BC.BF,AF 

482 DRTR BP. B4-28. 29, B3.BF. 9F, BF -BO. 99. 29 , RR. 8F.95, 29. 28,20,20.2 

9 . BF . BF , 29 . 29 . B3 , BF . 9F , BF , 8F , 85 , 20 , R3 . BF , BF , 8F , 8F . RF , 2fl . 2fi , 2fl . 2P 

. 28 . 28 . Rfl . BF . Et> . eg . BF , 9F , 29 . 29 . 6F , 8F , 29 , PR , BF , 03 . 29 . HP, , BF . 93, 20, 

28 . 28 . 29 . 29 , BF , BF , 23 , 29 . BF, BF , 20, 29, 29 

433 DRTR 29,29.RR.BF,B0,B9,89.29.29,29,28,29.29.RA,BF,97,fi3,81.2 

9.28.23.eF,BF.20,flR,BF,95,28,RR.BF.93,20.20.20.29.29,BF,BF.20.28 

.8F,eF,28,28.28,20.29.RR.BF.9F.83,83.29.29.29,29,29,20,RA,BF.35- 

29.29,20.29.29.8B,BF,3D.BF,9F,91.29-32.RF.BF,BC 

464 DRTR 29.20,29.29.BF,RF,29.20.88.BF,B[>,BC,8C,94,20,8R,BF,BF,B 

C,BC.BC,8E.BF,3F.BF,BC,29.29.R3.BF,BF,gF.PF.9F.29,28,BE.BF.8F,3F 

, 3F, 84, 29, RR, BF, 95, BF.BF, 28, Rft.BF, 94, 28, Rfl,BF, 80, 88,88,29,29,29. 

BF,BF,B0,89,20.29,20,Rfl,BF.33,BF,BF,28,R8,8F.85.29-Afl.BF.9F 

435 DRTR 83 , 33 . 28. 29. 29 . BF - BF . 83 - 83 . 29 ■ 29 . 29 - PR ■ BF . 93 ■ RF . BF , BC , B 

F,8F 

486 DRTR 29,29.8fl,BF,BF,BC.BO.8C,20,29,BF,BF,20,20.29,29,29,RA.8 
F,33.R9.BF,BF,34,20-2e,38.8F,9F,E8.RF,8F,A4,28.28.R3,BF.BF, < '4,33 
. 30. 80. 83, 33, 8C. 80. 86, A9, 85, ER, 83, 98, 89, 8C. 30. 33. 33, 80,60.84,33. 
30, 29-20, 20. 09, 29, 99, 89, 86, 81, EC. 32. 39. 90. 20 

487 DATA 20,20.20,A9,96,20,8P,8O,8C,BO,8C,S5,F0.8R.8O.8O,8*:.8C.e 
5.FF,FF,FF,FF,FF,FF.9A.8A,88,FF,FF,FF,FF,FF,FF,FF.FF,E';,BF,93.35 
,83.83,83,8F,83,B3,83.83,83,BF,83,83.93,83,83.eF.9R,D5,8F,23,28, 
2R,20,29,8F.28,20,2fl,29,29.BF,28,20,2R,29.28 

433 DBTfl BF.0R,D5,BF,33,83,83-83,83,BF,33.63.83,93-83,BF,83.83.B 
3. 93. 93, BF, BR, 03, BF, 28, 20, 2A, 29, 20, 8F, 20, 20, 28. 20, 28, BF, 20,28,29 
,29,20,BF,0R,D3,BF,83,33.33.33,33,BF,33.83,93,83,33.BF,83,83.83, 




TRS80 



a)Tapez dans un premier tempos les lignes suivantes' 

5 a 21. 36 a 40. 53 a 61. 81 a 86. Ill a 115. 133 a 183 210 

481 a 506 et 512 a 514. 
b)ldem a 1). 

cjldem a 1) (a pari que ca n'est pas encore la bonne!). 
d)Tapez le "reste" du programme (toujours sans tatre d'erreurs!). 

puis supprimez tous les REMs et. sauvez cette nouvelle et der- 

niere version. 
Oh, j'allais oublier! Ce jeu est bien entendu sonore. je vous invite 
done a connecter un amplificaleur adequat. 

Vous pouvez enfin (!!) (aire un RUN tout court, et decouvrir ce Po- 
lice Defi. qui j'espere. ne vous fera pas regretler d'avoir passer une 
bonne soiree (meme deux), devant voire ordinaleur favori... 

83,83,BF,8fl,D3,BF,29.28.2fi.29.20.BF,29,2e,2A 

489 DRTR 29.29.Bf .29.29. 2R, 29,28, 8F, 08. 03. 83. 83. 93-33, 33. 83-33. 8 

3.83,83,83.83,33.B3.83.83.83.83.83.ee,B9.B9,B8.B9.B0.B8.B9.B8,B9 

,88.88,B8,88,ee,B8,Be,B9.B9,B9,89,B9.B9.B9,BB.B9,B9,B9,B9,8F.29- 

29, 29 , BF , B9, B9, B9 . B9 , B8 . 88 . B8, B8. B9. B8. B9 , 89.89 

498 DRTR 88, B8. B9, B9. 80, B8. 88, B9. 88. B9.B9. 89. B9, 89, 69,38.89.83,8 

3, 83, 83, 33, 63, 83. 83. 83, 93,83,83. 83. 83. 83, 83, 33, 33. 83. 37, 93. 83, 83 

, 93, 83. 83. 63. 93, 33. BP, 29, 29, 29. BF. 83. 83. 83. 33. S3. 83. 93. 83. 83. 83. 

83. 63. 83. 83. 63, 83, 83. 83, 83. 83, 83. 83, 83, 83 

491 DATA 83. 83. 83. 63, 83, 83, 28. 28, 29. 20, 28, 28, 29, 28, 28. 29, A0.BC. 9 
E, 8F, 9C, 84. 28. 29, 29, 28, 28, 29, 29, 29, 29, 20, 89, 99, A0.B1, 28. 98, 81, 28 
, 28 , 28 . 29 . 29 . B8. B9 . B9 . B8, 84 . 88 . 86, 28. 29 . 82, B4 , 89 . BC, 89, 88 , B9 , 99 . 
BC.8C,8C.8C.80.8C.8C,8C,8C.8C,eC,8C,BC.8C,8C,er 

492 DRTR 8C,8C,80,BC,80,eC,BC,BF,BF,83.83.83,63.83.e3.83,83.83.9 
3,83,83.33.33,93.93.83,83.83.83,33.83,83,29.28,28,28.28.28,28,20 
.28.28,99,83.93.83.93,89,99,29,29.29,29,29,29,29.28.29.29.89.98. 
R0.81,20.98,81,29,28.29,29,29,B8,89,B9.B9.B9,89 

493 DRTR 86,29,29,82, A4.B8-B0 -B9.B9 ,89,90.29.29, 29. B8. 37, 28. 29. 2 
0. 28, 28. B9, 99, 29, 29. 29, 98, 81. 29. 29. 28, 29, 82. RD. 98. 29, A9.9E. 81, 29 
.29 ■ 98,29.29,29,29, 92, R4, 68,86, 29- 29, 29, 29, 88,29.29.29,88.84. 28. 
28. 88. 84, 20., 20, 82. RD, 60,29,29, 29. 29, 29, 29, 29. 29 

494 DATA A9, 88, 87, 28, 28, A9,9E. 81. 28. 28. 28. 82, BO, 29, 29, 29. 8F. 99. 2 
0, 29, 28, 20, 20, 28. 28, 9R. 83. 29, 29. R3. 97, 28, 28. 29, 28, 83. R0.B9. 99. 29 
,28,28,28.20,29,20,20,28,29,29.89.68.87.81,29.28.28.29.20.29.29- 
83, 88, 97, 83, 83, A3, B3, S3. B3, 83, 9F, 83 -31, 28. 29. 29 

493 DRTfl 29. 29. 29. 20, 20, 29, 93. 29. 29. flfi.AA-20, 20. 20. 93. 29. 20, 29. 2 
0,29,29,28,29,90,83,29,29,97.62,93.29,29,80.94,28,28,29.29,28,29 
,29. 29, 93,29, 28, R9, 83, 29. A3, 29. 29, 20, 93. 20, 28, 20. 28, 28. 28,29.88, 
83, 28, 29, Rfl. 28, 29, RA, 28. 28. 28. 80. 29, 28, 28, 28 

496 DRTR 28, 29, 29. Rfl. 29, 29. 29, RA, 29, 28. flfi, 29, 29, 29, AR, 28, 28. 29. 2 
0,29,20,2B,RR,B9,88,B8,9E.29,29.8fl,B4,B9,B9,Bfl.29.29,28,2e,2e.2« 
,28,B2.8F.8F.9F,81.28.20,28,88,BF,eF,B7,2e,28.28,B8,87,20,28,29, 
28, 28, 89, 98. 28. 29, 29. 98. 81. 28, 20, 28. 28, 82, 89 

497 DflTR R4,9e.2a,A0,9E,81,28,29,B9,28,29.29.29,82,A4,B8,86,2e.2 
8, 29, 29, R3, 8C, R4, 99, 29, 83, RC, 99, 29, 29, 88,84. 29. 29, 82 -RP. 88. 20, 29 
, 29, 29, 29. 29, 28, 29, 29, 83, 97, 20, 20, BB, 99, 29. 82. 80. 29, 29. 28, 82. BO. 
29. 20. 28. 8F, 99, 29, 29, 28. 28, 28, 29, 28, 28. BA, 28. 29 

498 DRTR 28,29,63,28,28,88,28,28.28,29.83,80.89,09,29,29,29,29.2 
9-29, 29, 29, 29, 89,95,28, 29, 29, 29, 8fl, BO, BE. 83. RF.3F, 29, 33- B3. FT. FF 
,FF,F F.FF ,FF,FF,FF,FF,FF,FF-FF.FF,Fr,FF,FF.FF.FF,FF.FF.FF,FF.FF 
599 IFPEEKC 16396K)291THENI-27l99EL3EI«-17l8e 

391 CL9'PRINTCHR«{23) 1 »394.-R0PESSe ■" .RESTORE' FOR J-1T0233 ' REROR 
i NEXT 'F0PA-IT032767 i IFPEEKC fl >=S7AN0PEE^': R+l )-l 1 lRNDPEEKf R*2 >-l 18 
RNOPEEKC R*3 >■ 1 02RNOPEE!<( A-«4 >-103RNOPEEK( At3 •,=. 19^THENI=R*2 < w GOTTJ 
382ELSENEXT 

392 1-1*1 'PRINTB414, 1 1 J-I i GCS*JB314 1 1FPEEK< J >34THEN3B3ELSE392 

393 I-I*liPRINTH414,I.J-I.OTS'.B314.IFPEEK'- J)=34THEN582 

394 IFPEEK<J)<>91TMEH383 

393 RERDP*'R-R*1 =X-8 i FORK-ITOLEW Pf >. N*RSC< MtDf^Pf .X, 1 )>-48^X»XI 
16+N*7*(N>9) = NEXT 

596 POKEJ.X 

597 IFR-349THENW + 1343'GOTO502 
398 IFR-624TMENI-I+1693'GOT0382 
599 IFP-787THEm-I + 1639 = GOT0392 
318 IFR-913THENI-I+2843 = G0Trj3B2 
311 IFR-970THENI=t*1393 G0T0582 
512 IFR=1597THENDELETE219-514 

313 G0T0383 

314 IFI>327S7THFn.r=T-65536 FETUPNELSEPFTlfRN ■ 



PECH'ORIC 




Par un splendide dimanche ensoleilie, vous decidez 
d'aller pecher (ce qui, je vous le rappelle est votre 
sport favori). Vous partez done pres de I'ocean, mais 
vous vous apercevez avec horreur que vous avez ou- 
blie vos asticots! Comment faire?... Ayant plus d'un 
tour dans votre sac, vous decidez de tenter de pecher 
d'une maniere peu commune: vous decoupez votre be- 
sace en plusieurs paniers (8 en tout) que vous placez 
verticalement dans I'eau, pres de la plage. Votre but 
est d'attirer des poissons dans vos paniers en langant 
sur ces poissons des cailloux dans I'espoir de les faire 
devier de leur trajectoire et ainsi de les attirer dans vos 



qu'un nombre limite de memes paniers car sinon votre 
besace ne pourra resister et tous les poissons s'echap- 
peront! Vous avez un autre moyen de pecher: dinger 
(toujours avec des cailloux) les poissons vers I'hame- 
gon de votre canne a peche que vous avez a tout ha- 
sard mise a I'eau. 

Pierre PALMADE 



Mode d'emploi: 

Les 8 paniers sont disposes verticalement a gauche de 1'ecran et 
votre canne a peche un peu plus a droite de ces paniers (I'hamecon 
est represente par I'etoile). 
paniers. Petit inconvenient: vous ne devez remplir Les poissons arrivent de la droite et se dirigent vers la gauche (vers de lancer le jeu. faites POKE 10,0 pour mettre Fe High" score a 0. 

Bonne peche. 



OR1C1 
AT^AOS 

Pour pouvoir devier leur trajectoire (e'est-a-dire les (aire descendre 
d'une ligne) vous devez appuyer sur une louche quelconque, ce qui 
fera partir un caillou de la gauche de I'ecran vers la droite el ainsi. 
tant que vous appuierez. Des que vous relachez la louche, le caillou 
tombe verticalement dans I'eau el pousse un poisson vers lo bas 
quand il en cogne un. Une fois capture, un poisson vous rapporte 
soil 5 points, soil 10 points. II peut vous en rapporter 30. si vous lui 
faites manger I'hamecon en le faisant descendre sur la meme ligne 
que I'etoile. 

La partie esl perdue quand vous avez rempli Irop de paniers diffe- 
rents. Ce nombre maximum de paniers est a choisir en debut de 
partie (2 a 6) ainsi que la vitesse du jeu (2 a 6 egalement). Cette 
vitesse est proportionnelle aux deux elements: le poisson el le cail- 
lou. Ainsi, a la vilesse 2 les poissons vont vite et les cailloux lenle- 
ment. Inversement a la vitesse 6. La vitesse conseillee est 4. Avant 



9 HS=PEEI'.< 10^ G0T03 
! DATR3,8,e,4,l 

3 k=HB5-':PEEK':«uOO'J>=169> = GOSUB1020 

4 CLS-PRIHT"CFiPflCITE VE LA BESROE (Ell 
PAHIEPS)" PP1NT 

5 PRINT" (2 4 6) ? ") 

6 GETF« P-VflU F» > : IFF-.20PF >6THENC 

7 PPIHTF PPIHT PPINT"VITESSE > "; 

8 GETV* =V=VAL<V*>'IFV<20ftV>6THEM8 

y PPIIITV PRINT PRINT PRINT*C'E8T PART 
I I" 

19 DRTR7, 15,13,63,61,23,3,7,8,33,31,6 
3.63.51,33,9, 12.39.39 

15 C-RTR12.63. 12,18,33,0, 1.3,7. 13,38,6 
3,63,60,62.62,33.9,0,63,63 

28 0FiTF|3, 7, 14,28,69,36.48.48 

22 Dflrft9,9, 12,30,38,30, 12,0 

25 D*TR63.33,18,12,12,18,33,127 

39 A=46995 REPEAT R=R+1 'REAOB'POKER.B 

UHriL8-127 

45 FORS-46360TO46367 POKES, 63 i NEXT 

50 CLS'PflPEIWIttfl' 

55 F0RS- 1 1 T026 PLOT 1+K.S, 20 ■ N6XT8 

68 PLOT UK, 10, "w«*>»mni HJtiiHJiHHi 

ijinajui fu" 

80 PLCiT6*K,9,"k" PL0T7*K,8, "k" PLOTS* 
K,7,"k"=PLOT5"K.6,"k" PLOT10*K,3, "k" 

62 PL0Tll*K,4,"k" 

85 FORS-llTOie PLOTe*X,S,"C"'HEXTS 

B7 PL0T16+k, 26, "SCORE'" 

90 FQP*;.4TCI19 PL0TI2+K.S, "l"i NEXT 

190 PLOT12+K,20,42 

110 F0RS-5Trj9:pL0T2*X,-i,"! [•'MBKT'PL 
0Tl*K,4."M« B ,f..rn" 

112 F0RS-3TC9 PL0T1*K.S,2=HEXT8 PLOT1 
♦K,10,l 

113 PLOT10*K,3,"JE MOHTE l"-FOR8"9T03 
STEP-1 IFS-4THENS-3 

116 PLOT3*K,S,"h , -'SOUNOl,300'3«3-10'W 
H I T20 ■ PL0T3»K, S , 32 • HEXT8 



vos paniers). 
"ET HOP : 



117 PL0T18+K,3."ET HOP Mill "'PL0T1 
♦K,3,6 

118 FORS-409Trjl00STEP-3<SOUNDl.S.10'N 
EXTS'SOUHDl/1/1 

119 PLOTI0+K.3," "'PL0T3+K 
,3,"h" PL0T16 + K,2,- , HI-SC0RE="+STR»<HS> 

120 IFTO8THENPL0TX+K,Y,"r' 
125 SOUHOI,1,1'PLOT12+K,20,42 
130 IFW=lTHENPL0TCl*K,Dl,"f9" 
148 IF2"lTHENPL0TC2*X.D2,"f9" 
150 IFPEEr/ 11268 >-56THEM288 
155 IFT=2THEN200 

160 IFT=0THENT=1 Y-3'X-4 

165 PL0T>:*K,Y,32 

170 X=X+1 IFX>37THEMX»37=T-2 

180 PL0TX+K,Y,"1" 

198 GUTO230 

208 IFT=IOPT'2THENT=2ELSE230 

219 [FX<13THEH7>1 GOT0185 

220 PL0TX+K,Y.32=Y-Y*li 1FY>21THENT"6 i 
COTO230 

223 IFY=10THENY"1I 

224 IFSOPN' X+K, Y K >32THENPING C08UM6 
e'GOTO230 

225 PLOTX+K,Y,"l" 

230 P=P*1 IFPxv^>INT':P^V;THEN120 

231 U-IHT<8*RN0U j) 

232 IFZ<1THEM234 

233 IFij=iTHEHZ=l 'C2-36'02-INTC9*RNCK l 



11 > 



r;i"36'Ol"IMK8*RHDC 1 



237 
249 
259 
255 
269 


JFH=0Allt'Z=0THEH120 
[F2>1THENPL0TC24K,(>2, ■ 

!PH«lTHENPLOTCl«rt(»01," 
GOTO 120 

C2-C2-1' IFC2'.10THENZRP 


•■'GOT 0260 
"•GOTO400 

Z-0' IF02<1 


265 


IFC2-10THEIIPLOTI2»K,D2 


"l".PL0T12 



*K,D2-l,"i" 

279 SO'JMOl, 190,10 

280 IFSCRN',C2+K,D2>="42THENGrJSUe600 
290 GOTO250 

409 C1=CL-1 IFC1<10THEN2APU-B=IFOI<1 
9THEN859 

402 IFCl=10THENPLOT12tK,Dl,":"PLOT12 
♦K,01-1,"I" 

405 3OIJNO1,200,10 

419 I FSCRN( C 1 ♦* , D I >=42THENGOSiJB600 

420 GOTO120 

609 SHOOT i F0RSMT01 9 1 PLOT 1 2+K , S, 32 = NE 
XTS'PLQT12+K,10,"J B 

605 PL0T12*K,29,32 

610 PL0T12+K.4, " f 9" 

628 PLHY7, 0,0,0 

625 FORT-1T04 

571? FOPV-^'X<njUiM',TtF--; -.ijiiinm ,-,, 10 it 
EXTS 
640 NEXTT 

659 PO=PO+30' 1FC1 B 12HHOO1=20THENU-0EL 
SEZ-9 

660 SOUND!, 1,1 >WIT10 

670 PLOTI2*K,4." - >FuR 

S»4T019=PLOT12+K,S,"t"'NEXT 

6B0 PLOT 1 2+K . 20, 42 - PL0TX»K . Y . 32 T -0 

683 PL0T16*K,26."SCORE'"tSTR»<PO) 

687 IFH*i.;P0TNENPL0T16+K, 2, "HI-SCORE ■ " 
♦STR«(P0) 

690 RETURN 

900 IF<X-C10RX-C! + 1 lANDY-OirHENPLOTCl 
♦K.D1." "-D1-DI+1 'T-9. RETURN 

810 IFrx-C20RXHC2*I >AN0Y"D2THENPLOTC2 
*K,02," ">D2-02*1 'T-0 

820 RETURN 

930 PO-PO+10' PL0T16*K, 26, "SCORE ■"♦STR 
f(P0) 

832 IFHSUTjiHLNi'LOlie+K, 2, "HI-SCORE'" 
+STR»<P0) 

833 IFSCRN( 9*K , D2 )-32TH£NPL0T9»K . 02 , " 



f9" -0»O+! IFO-FTHEN1909 

849 PL0T9«-K,D2."f9" G0T0129 

859 P0=P0+5'PL0T16+K,26,"SCC*E'"*STR» 
<P0> 

832 I FHS< POTHENPLOT 1 6*K . 2 . "H I -SCORE ' " 
+STRKP0) 

853 IFSCRNC9-HC.D1 >=32THEHPL0T9*K.D1 . " 
f 9" -0-0*1- IFO-FTHEN1009 

869 PL0T9*K,01,"f9" C0T0129 

1000 SOIJHDI.800. I2PRINT"VOTRE BESRCE 
EST TROP CHflRGEE I" 

1001 FORS=l!T018'PL0T3+K,S. 12 PLOtll* 
K,S.8'NEXT WRIT29OF0RS=.11TO18'P1.0T3*k: 
,8,9 

1002 NEXT-HfllTlOO PING 

1093 FORS-11T026 PLOt8*K.S.32- IFS*8>2 
6THEN1095 
1004 FL0T9+K.S*8."C" 
1995 SOLiHO1.50KS*3>.12MflIT10 NEXTS 

1012 EXPLODE 

1813 F0R8-9T07> PAPERS <HRIT29 ■ HGXT8 PA 
PER9> RESTORE FLHY7.0.9.9 C08UB1399 

1013 GOTO130O 

1029 CLS'PRPER01NK3'PRINlCHR»<4)iCHR 
»(6>iCHR«<17) 

1023 IFK=11HEMCALLIF8D0 ELSE CALLiF89 
L» 

1039 PRINT" "';HR«(27>"J PE 

CH'ORIC" PRIHTCHRK4) 

1033 PLOT1*K.1.20 PLOT1+K.2.29 

1937 PL0T2+K.1.1 PL0T2*K,2,1 

1940 URI T 1 99 iF0RS-IT06' MUSIC 1,5.1. 10' 
WHIT 10 NEXTS MUSICI.l, 1, I 

1050 SHOOT 

I960 PRINT 

1070 PRINT" Vol.* d«v«,»n i»t«nt d»» 
clllouK »ur" 
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Suitopago 17 



WAR GAME 



Meme si la guerre n'est pas vraiment un jeu, amusez- 
vous a repousser les vaisseaux ennemis qui attaquent 
le repere du Capitaine NEMO. 

Voire mission consiste a defendre un depot d'armes 
situe dans une caverne. Vous disposez de 2 vies et 
d'une grande quantrte de munitions. A vous de jouer. 
les regies sont dans le programme. 

Jacques BOURIQUET 




34ee 


DATA 0.3. 63. '31.231. S3 


"t.ft 




3410 


DATA 60.66. 153. 165. 155 


15"> 




3429 








3510 








7130 


PEAD v 






3530 


POKE I.V 






3140 


NEXT 






3550 


POKE LSFE3. -.Ci 






3560 


PWE *5FE4. 1F9 






3576 


rfn-CHP»< i?; • rets-cHP*- 


i«n 


zc*>-cmp4< 


3571 


zd*»-cmp«' I9S> ze-»-chp». 




T*-CAP4. 


3572 


zg«-chp«. i?? • zm-cHP*- 




Zll'Ch*^ 


2572 


r._n-CHp«'2oi ■ zy%-cvf>+ 


.. .■ 


ZLJ-CHPV 




z?-»-chp-k294 i r!i*-irHfr 


,.!'. 




?575 


zp»-ohp»,. 'or ■ ro»-CHPt> 


■xw 


ZP«=CHP*P 




Z34-C*t;'2I9 ' ZTl-CHP*' 






3577 


ZV-.'CHP-^IS 1 






3580 


PETIJPM 







f 1 1 JfKOUES 


E'jiJPl 


'JET 1 1 1 


r 1 1 F-PE 


SEHTE 


Ml 


ttl iutl JEU 


D ' mPGhDE 1 t 1 


1 1 1 -HAP 


.-"-'■£; 


Mr 


i t r sup v 


ZCTOP 


2HR* Iff 


Ml El 


E 11 


„„.„::; 



164 CLEFiP NIPE 



HECtOB 
HB 



50! OUTPUTS, 139. 170.2 

502 GUTPUTZP*. 190. 146,2 

503 QUTP'JTZFl.290. 14=. 2 
510 C-JTPUTV.210. 179.2 



} N-INT 'PHCK1.10/- 

i goto soaot'.n t 50.- 
i output rr*.2io.v,o 

I ',-■-'»• 'PEE»- I5FF1 i ftllt. 4 - 4 >t Fi 1 

> Y-Y-:'. PEEK' (5FF1 ■ AMD 9'-9.-*fll 

i f»l-IHT<POT«>'^e) 

) IF FIPE-9."0 IHEM IF 11-1 THEM G0SU6 1000 

1 IF £-1 THEM GOTO 500 

3 IF V'40 THEM 7-40 ELSE IF Y 100 THEM f-100 

I OUTPUT IT*.219.Y,1 

; [F G-184 THEM GOTO 3006 

goto eeoo«-<5o»N«-ie> 

GOTO 800-3*' "n59.'-2e> 

I GOTO 560 



M-n-i 

2=194 



265 


HIPE 




276 


FOP E-iO 10 255 












ft-IMT 'PMC- 10.40 *, 






c-iht -pml- ee. i j-j 






LIME 6, IB.B.ft,? 




320 


LIMEe,130-B.C.2 






NEXT 






FOP 9-30 TO 7? 






H-1MT CBMX 10,26.-.' 






c-inr '.RME-. i06, i:o 






lime e. 10.6.0,2 






LIME B. 120. B.C. 2 






HEXT 
















342 


PLOT 1.211,234.5. 1 




343 


PLOT I.?. 254, 5.1 












3 





1006 IF M-2 THEN OUTPUTZPf ,200, 14S.0 

1007 IF 11-1 THEN OUTPUT ZP4. 130. M6.0 

1010 IF Z-CF-nr-' V-ft*!uPV-H»2>:>P Y-ft-2 OP Y-ft-1 OP Y- 
m.- THEM OUTPUT ^C. 40. 170.0 SC-SC10 OUTPUT 3'!. -10. 170 
,2 OUTPUT CHP4' 124>,G,R.0 OUTPUT CHPV 124 ., C-5,A. 
UTPUT CHJW 124 >. 0*11.0.0 OUTPUT CHP« 124>,Z-4,Y-4,0 
C-l PETIJPM 

1011 OUTPUT "-".Z.Y.l OUTPUT "-".2*0. Y. O 

1012 IF Z'9 THEM PETUPM 
1160 GOTO 1005 



;oio 



OUTPUT-SCOPE "< 10. 170,3 

PLOT ea.lBl.4,25.1 

OUTPUT "SONUS "- 100.170,3 

PLOT 165.161.4.25.1 

OUTPUT "VIES- ',175. 170,3 

BLOT 200.120. I. 110.2 

PLOT 197,129,1.110,2 

OUTPUT -DEFEMDEUfi ",10,146.3 OUTPUTM. 75. 14c 

PLOT 135.155,4,25.1 

OUTPUT-SPUES ".142,146,3 

OUTPUT "COPYPP.IGHT 1964 J.eOURICUET* . ». 225, 

FLASH4 . 30 

FLRSH3.30 

' tt BASSE DU JEU Tl 



ijijTcjTZP*. 190.146.2 
O'JTHITSC, 48. 170,2 
OL.T^UTZPl.ZOO. 146.; 
fl-0 G-0 O0 11-3 



3220 
3230 

;240 



3230 
3200 
3310 

3 ;20 
; 3 30 
3 340 
32-0 
3360 
3270 
3390 
3 :-?o 



PAUSE 1 
FLASH 2,20 

IF V'O THEM GOTO 7220 
OUTPUT X. 130, 179.0 
LET X'X-256 

IF ^-1000 THEIi OUTPUT','. 319. 170, 0V=1 
IF >:-500 THEN OUTPUT'/, 219, 170,0 V-0 
OUTPUTX.130. 170.2 
OUTPUTV, 210, 170,2 
GOTO 500 
END 
■ r.rt.ttttttttttt-t.tttmt.**" 

' I CAP.ACTEPES GPP.PHIDUES I 

- mmTftfmmm-mm 

WTO 9,9 

DATA 129,153. !9:-.255.255,169,133,129 

DflTft 9,9.24,60.102.255.165,126 

DATA 252.112. 129.255,255. 120, 112.252 

DHTR 192. ?6, 119. 23£. 2 36. 119,95.192 

[■fiTFt 24,60. 126.221.23! . 126,60.24 

DfiTR 159. MO. 32 " J 2 , 3 "..:':■.;. 322. 149. 159 

DATA 60. 126.2'.-:. '. Z',. Z'.-r,- 126.126,165 

C'ATfi 31. 199.297 122. 12 3.207. 199.31 

DATA 246.120. 124,255,255. 124,129.240 

DATA 120,102. 103. 22?, 2.23. 139. 102.120 

DRTA 49,240.126,59.59,126.240,49 

C43TA 29. 60 ■ 62 . 207 . 254 .126. 60, 255 

DATA 16,24.60,254, 127,60.24,16 

DftTA 64. 172. ISO. 169. !69. 199,172,64 

DATA 0.0,255,255.255,255,0,0 

DATA 60,126.255.255.205.255, 126,60 

DATA 9.0,124,254,254,124,9,0 

DATA 0.9,7.63.53.7.0.0 

CATA 254,255.205 240', 249 . 255.255.254 



5037- 
5040 
504 1 



5044 
5045 
5046 



5052 
5953 
5054 
5055 



5075 
5076 
5077 
5079. 



5200 



• t PRESENTATION 1 

HIPE COLOP 4,5,6. 1 

'OUTPUT "JffCDUE-: - 155- 209.; 

CJTPIJT -EOUPIOUET-. 160, 120. 

OUTPUT -PPE2EMTE-. 160, 160.3 

PLOT 2O.20O.5.75.3 

PLOT 25.155,5.15.3 

PLOT 30.165,5.15.3 

PLOT 35.155.5,15.3 

PLOT 49.200,5,75, 3 

PLOT 55.200,5,75.3 

PLOT 60.290. 15 5 2 

PLOT 60.165 15.5. 3 

PLOT 70,200.5.75. 3 

PLOT 35.209.5.75.2 

PLOT 90.200.5.9 ? 

PLOT ?9. 200. 5. 10. 3 

PLOT 90.165.5. 10.3 

PLOT 95.195.5,5.3 

PLOT 95.165.5.5.3 

PLOT 96,190.0.25.7 

PLOT ?0. 155.5,5.3 

PLOT 93,159.5.5.3 

PLOT 96. 145,5,5.2 

PLOT 99.140.5,5.2 

PLOT 9?. 135,5. 10,3 

PLOT 65.30-5.75 7 

PLOT70.90.20.5.3 

PL0T65. 10.26,5.3 

PL0T95. 30.5.25.3 

PLOT 90.20.19.5,3 

PLOT 100,90.5.75,3 

PLOT 105.68, 15.5, 3 

PLOT 105.45. 15.5.3 

PLOT 115.90,5.75,3 

PLOT 120.90.5,75.3 

PLOT 135.65.5, 10, 3 

PLOT 140,60.5,10.3 

PLOT 145.55,5,10.3 

PLOT 150.90.5,75-3 

PLOT 165.90,5,75,3 

PLOT 170,90,20.5.3 

PLOT 170. 10.20.5.3 

PLOT 170.40.15.5.3 

PLOT 200,99,5.40,7 

PLOT 295,90,17,5,7 

PLOT 205.45.5. 10,3 

PLOT 210,40.5.19,3 

PLOT 215,35.5.25,3 

PLOT 199,10,22.5.3 

FLH5H 3.20 FLASH 4.30 

PAUSE 3 

RETURN 



7150 Llt€14 :>; 226 36 ! LI'42226 •> 1 LI-CM.?.! Li 
IE!4 226.1 Lt"EI- 224 72- 3?*.! LI-C37* 1* I ll«|< 
.18. 1 L!tC15.224 l 

7l£0 OUTPUT --*? .<< A"EZ "O-.f NISSICW E£ '.2* 1** I DU 
TPUT'DEFE(C*E L'EMTPEE T€ vOTPf PfPEPf 24 I«4.« */T 
POT'OU ?E TPC.'-E VOTPE DEPOT D' PPW?" . 24. :■-■» a m/ren 
T-51 PAP WALMEUP UN E>*Cr«I PApvlEVT" 24.17?." 

7170 OUTPUT "A PASSE" "Oioc SPP99C£ IL ?C" ?*> 116. « 

iJi'TPUT-C'ESiHTEGPE DA>f? ■'OTPf BA6E-. A LB* 24 109. A 
OUTP-JT'lcr? EyPLOSIOM VC"J5 PfPt-EZ lO***!;" 2* a*.« ou 
m*T*A LB DP.^IEME VOL'S PE*^€Z 1 "IE* 7* 69 9 

7190 OUTpiJT'-vaH ATTEHTIow «>."S HE POL-JET. «r.«* ?» 
r .3.0 O'JTPi.iT-'T-.'S "ECE-f" mjE 7 FOIS'm • ; 4 -w .-. 

7190 PAUSE 1 5 
. 7200 60T0209 

7210 - 

7228 vc«*.ir< dc s«r« 

7230 

7249 HIPE tt*S COLOP* ! 2 3 

7250 LI'CM 225 276 226 ! LIME276 ?, 1 L1MEM 9 ! LI 
(CM. 226.1 LINEI5, 224 724.224 l L!t€22* 19 1 LIME16 

. 10.1 LIMElfi.224. 1 

7266 DATA76 130 10 6 1 32 '.""4 ' 2** ! '- 154 ]o .- ,. 
46 -14* * 20 1.36 129.10.6.1 K 174 4 -6 J - a 1*9 1* 
- '.60129 14 6 2 30 1""4 1 1^ 3 ?J !-■< 10 r 1 9< 12? 

10 6 2 91 1-4. 1 46 3 

--->-■ I-TAlO-i. 174 4.52 1 .109 199 10 5 1 19?. HB.«.« 
1. 11°, 174 4 26. 1 119. 135,4. 13- 1 116 M! 1 -: ! 128 17 
> i i-: 2 132.190.14.6 2.132 12? M 6 2 12? 154 11 - 

~7290 PEST0PE7260 F0PI-1T022 PEAt' v .-,* L-H C >"l-f"»1fl P 
LOTXI.Y.L.H.C HEKT 

7290 F0PC-1TO3 FLA^HC.6 "E>T 

r^OO IFtl !BTi.c.i.-,-,TC--4<>a ;',-3EI-'J l-^'HEl-'-OTO-TOO EL? 
EIF'l 1500 r "-E"GO T 07'-:" El-E:-'.- ■.-■>.■>:■ -w--., .: ■- f : 

EIFN -5000 THEMC0T07 329 

7310 COT07429 

7'29 OUTPUT-E v P E P T C49 *9 7 O-JTP-.'TW 125 99 2 

C-JTPUT-Po:fi*.:* 160 90.1 

7330 GOT0743O 

7340 OUTPUT "C P A 6 Y f. 49.993 OUTF*.*TN 135 3» 3 

iJUTPUT-Poir,*:-. 160.99.1 

7350 GOT07420 

7760 C-jTPijT->:o!Wfl!S-:E'* •' 40.99 ? WTFUTN 1 35 90 2 

O'JTPUT-Poiri-.:*. 168.90 I 

7370 GOTO7420 

7390 OUTPUT--I Y E M (■ 49.99 7 OUTPUTN 125 90 2 

■J-JTPiJT-Poir,*.:-. 169,99.1 

'790 C0T07420 

7400 OUTPUT "[EPUTAm t".40 90 3 CJTPIJT'l 125 90 2 

OUTPIJT-Poir.t;-. 160.90. 1 

7429 PAi.iSE^ '.l!PE GO=UP-4.:0 OUTPUT -mne A>_'TPE PAPTIE" 
.70.190.1 OIJTPUT*0 eul ou non H* ■ 6° MO 1 

7438 L»-IMKEV»<2eeJ L-^SO'L*' 1 FL- 79 THENCOT 07000 EL 

;e:fl-79the"G ".-.:>-■■. ■".(! e.2E:^l :-9: = '^E'--0'-—j" 
7450 hipe colopo-1 7.3 f0pi-it03 flachi 20 next emt> 

7450 LIHEM.226.226.225 ! 
!E!4.226. I LIME16. 224.224. 
.10.1 L1ME16.224. 1 PETUPN 

7470 SrpEEH30. 50. 170.35 PESTOPE7490 F,?Bj-|TOie 

-430 PEAC-S1.S2 T0"S-1 S3 NEXT 

7490 DATA175. 143, 165.151.175.14? 117 21? 12? 191.16 
5.151. 124.202.97.269. ! 31 • 191 . 131 244 

7500 HIPE OUTPUT" AU PE'-fllP" .5-3. ! 20 1 PAi."SE3 HIPE EN 



CALCULEZ SUR HEBDOGICIEL 

Ce sont des calculatrices Casio, elles ont le label HEBDOGICIEL et une table des codes ASCII 
bien pratique pour vous aider dans vos programmes. Prix hebdogiciel et garantie 6 mois. Vous 
pouvez compter sur elles! 







QOOTMC. 


1 ]im p 


i | 5 s 


s 


iHsinmsmiaa 

SB O B O 
BBBIB 
BBBBB 
BBBBB 
BBBBB 






La LC-311 est un peu plus 
grande qu'un paquet de ci- 
garetle, mais moins epaisse 
: moins de 8 m/m. Memes 
fonctions que la SL-800 et 
une carte de codes ASCII. 
80 francs. 



350 Frs 



La SL-800 Film card est aussi plate que voire carte de 
credit: 0,54 mm d'epaisseur. Pas de piles: alimentation 
par pile solaire, une simple ampoule electrique suflit a 
l'alimenter.8 chiffres de capacite. pourcentage, racine 
carree. memoire. Et une table des codes ASCII au 
recto pour vous aider dans vos programmes 



.1 ■ 




», 


„ 


(l 


, 


,, 


. -n. 


































































































































































































































CA«ta ■ 


— 





P L^ £ 

















CASIO "6 


- < 


- 


•> 


:- 


un 

„ 




HGBOooicieu <: 


4 

' 


' 


« 


X 

IT 


* 


» 


• 


i' 


• 


Mt 





Commandez ces calculatrices a: SHIFT EDITIONS 27, 



me du General Foy 75008 PARIS. 

Nom ChOquo 

A.|.,-' -.(_■ Monlam 

F ' n,3d "° 

TOTAL 

CoclepoMal Dil[0 



LI-.F-36 9 1 LIHEM.9.1 LI 
224.1 LINE224 19, 1 LINE16 



'■'■5P!*P1 E9 FUCHt ' 



7919 'tlPPESEMTPTIONIt 
7020 " 

7030 HIPE COLOPO.1.7.4 FLASH0.6 POKEIFF10.1 

7040 LINEM 226 226.-26. 1 LII-F236.9.1 LINE14,0,1 L! 
HEM. 226-1 L!'C16.224.724,324, 1 L INE224 - 10. I L1WE16 
,10.1 LINE16. 224,1 PL0T19. 222, 205, 210. 3 

7^15 0"JTPU'"0O','^EZ 'TjTPE P^EHO-!-. 39. 149.0 CuPSOP^O. 
129 1NPUTM HIPE 

7046 LIMEM. 736. 236. 3.76. 1 LINE226.9.1 LINE14.9.1 LI 
MEM. 226-1 L.IHE16.224.224.224, 1 L1NE224.10.1 LINE16 
,10.1 LINE16. 224.1 PL0T19. 222. 295. 210.3 

-050 SCPEEH70.50. 170. 25 PE0'0 D E»7n Fiipl-1TO10 

7060 PEAC'S!.S2 TONES 1,S2 NEXT 

7070 DATR175,143,165.151.175, 143.117.217. 139. 1?1 , 16 
5. 151, 124, 292. 97. 269, 131. 19 1.1 3 1. 244 

7920 F:=rU:EZ OOLOPO, 1 .2. 1 

709*3 OUTPUT 'CEO-PEZ VOUS LE MENU" ,59, 190. 1 OUTPUT *0 
Ul >0 ou HON .--H". 64. 140, 1 

7100 LtKIMtErtKSee* L-BSC<L*) in.-79TI€N GOTO7110 E 
LSE IF L-79THEH GOTO 2-19 ELfiEIFL' ^790RH>79TMEMCOT07 
l'TO 

7110 ' 



^55 LET fi-INT 'PH--40.90 1 ' 








9O60 G*G-9 








9070 OUTPUT ZP4.C A? OUTPUT 


ZBff.G 


9,fi.0 


0UTPUT2W 


194. A. 








7930 GCT0560 








0190 ' 








0195 LET A-IIIT ■ PNC-' 49,90' '■ 








9110 G-G«-9 








9120 CJTPUT 2T;4.G.A,2 OUTPUT 
9149 OOTO 56B 


2C4.C 


9. ft. 9 


OUTPUTZC* 








9I50 ' 








9155 LET A-1NT C*>MX4a.90>> 








9160 G-G»9 








9165 OUTPUT ZT-1 G fi ? OUTPUT 


2W.G 


9,ft.ft 


OUTPUT 3D* 


134. ft. 








9170 GOTO 550 








9200 ' 








9205 LET A-ItCT ■ PtTV 49 90 ^ 








9210 G-G*9 








9215 OUTPUT ZM.G.A.3 OUTPUT 


ZM C 


?.fl,9 


OUTPURPI 


194, A. 








-219 GOTO 560 








925fl ■ 








=255 A-IHT ■ PHyie.M'**' 








9260 G-G*9 








B270 mjTPUT ZEt.f.,9 ? CJTPUT 


ZEt C 


9 A 


ri'iTPiiTZE* 


194. A. 








3275 GOTO 569 








9306 ' 








9705 A-IHT • PHf'40 90 '■ 








2310 C-G+9 














0UTPUTZF1 


194 A. 








9340 GOTO 560 








9950 ' 








3355 H-!HT'PHDM0.90'-> 








9360 G-G'9 














0UTPUTZG9 


194. A, 








°375 GOTO 5S0 








9490 ' 








9405 A-IHT' PHD' 40. 90 >■ 








9419 G-G*9 








0420 OUTPUT ZHf.G.R 7 GMJTPUT 


ZH4 G 


9 ft 


OUTPUT 2M4 


194, ft, 








9470 GOTO 560 








9459 ■ 








9455 A-IIIT ■PNT- 40 90 - ' 








9460 G-G-9 








946TJ OUTPUT ZI4.G.A.3 OUTPUT 


ZI4 G 


9 A.O 


OIITPMITt* 


194. A. 








9479 G0TO569 








9509 : 








9505 A-lNT.'Ptlt" 40 ■-">■ i 








9510 G-C-9 








9515 OUTPUT 2.14. G A 3 OUTPUT 


7 If.G 


9 A 


nuTPi'T- '* 


194. ft. 








^■\;ri com -«M 








9550 ' 








^555 A-IHT ■ PIT" 49 .«n< ■ 








9560 C-G'9 








9565 OUTPUT 7>'4 G A ? OUTPUT 


2T9 C 


-9 •* 


0UTPUT2I « 


194. A 








9570 G0T0569 








9.T00 ' 








9605 A-IHT 'PHD- 40 90 








9610 G-G»9 








9615 OUTPUT r>1 G.fl 3 nuTPi'T 


'> * C 


o .1 




| 94. ft 








«i,i GOTO •"' : ' , 








^.-'.,> 








965S A-IHT ■ PH> 40 SO 1 ' 








7660 C"C*9 








off, (-WITPUT -H- C Ft 3 ntiTPi'T 


"■« . 




0yTf>UT2M 


IS* .' 'l 








H -,, Q3T0 '.co 








9700 ' 








-1705 A- JUT' Pti> ""> ■"■'> ' 








9710 G-G>9 








■-!-. 0UTP1J1 W* '"■ '■ ' 0UTPU1 


■-H ,- 






1*4 ft 








9730 GOTO 560 








9790 ■ 








9755 a- hit ■PUD' 40 "" , ■ ■ 








■ -.-,, , .;.-. 








UTI "' '■ " '■ ■ ■"" "' 


[01 . 


,. ., 


0UTPU1 '■■t 


194 ft •> 








. . ro 5*1 








■ ■ 








■ .,■ ,. [NT PM l " 








9910 C-C»9 








' 1 - '. ■■ ' (HJTW1 


■'- 1 




(HPTPU1 ■'* 


! - 








-v.;.; •■■• 








■ ■ ,, HI) t.,i[.. .(,. n,"> ■ 








-..,... c->*»9 








, . ,, .....r,,l 


-.-, , 
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la page pedagogique 



'la page pedagoZZ 



Marcel HABERT enseignant a Arques nous propose cette semaine un programme d'apprentissage de I'heure pour TRS 80 Ce 
logiciel comprend une phase d'entrainement puis une verification des connaissances. Les differentes facons de donner I'heure 
cadran classique et cadran digital, sont egalement prevues. Quelques surprises attendent les etourdis ! Nous publions aussi la suite 
des tables de conversion des differents logos envoyee par Alain PRE. 



j'apprends I'heure 
sur TRS 80... 




La page pedagogique a besom 
de vous! 

Elle sadresse aux ensei- 
gnants et aux parents d'eleves 
et doit etre taite par des ensei- 
gnants. Les programmes et ar- 
ticles publies ne participant 
pas au rancours, la remunera- 
tion pour les documents que 
vous nous enverrez el que 



nous publierons. sera portee 
de 1000 a 2000 francs la page 
publiee, a partir du ler octo- 
bre. Une precaution indispen- 
sable pour vos envois: joindre 
un courrier nous autonsant 3 
publier voire oeuvre et porter 
la mention "Page pedagogi- 
que" sur voire enveloppe d ex- 
pedition. 






i ice. :rnpBima;76. -;-iiz-os9(o»ii9i 



j'lHfomt ouo: ■ 



•2*r«nPHinTa;2i.-h 



Equivalence entre differents logos 



WBtttm LKIMS 



antGs i swtifi 



LEVIED m IWEIIE 
UV1EH M HKI1EI 



LISO* IDCI 
LIRI5IE au 
EWI5 (EC I 

m 
rmran 

FIICWHIf 

noEf 
gcra 

WJ1W 



LtSCM 

nun uu 

ECR1S 1ECI . 



KWCM 

ItMttSt w PIMM* 



m 


FUJI 


FM 


FM 


FM.SE 




VMIUUS 












mn 


torn. 


vm 


urn 


WE 




CHOSE III 


CHOSE 111 


DOSE (:1 


CHOSE til 


IHIK 1:1 




or 


m 


m 


UP 






IW 


nm 


VI KP 


VtDf 


WTTP 





WM 

DUKE 



mum K I'ESMCE IC IMWtL 
EWE (Ell El 



.minims 



urn 
mm 











HVtSESSIB 


EFF 


KIWIS 


KIWIS 


KTW1S 


BBS 




tREClEW 


FtlDISM 


FitCLCCrcur 




[11*1 


MIIIOM 


UINOEUE 


warn 


CilWK 


FUS 


EltKE 




EIIKE 




EEC 


jam 




SOI IE 




tl 


i 


.mm 


.iiriiiUHtE 

.EDI1EW 
.HUE 
.SEItE 
.C0RS01E 





la page pedagogique, 



la page pedago — 



PEDRO 



Noel approche... Enlin presque! Mais il est temps pour 
Pedro de songer a sapprovisionner en sapins. Malheu- 
reusement, son fournisseur habituel est en greve, il va 
done se servir lui-meme dans la propriete, a ses ris- 
ques et perils. Aidez-le! Mode d'emploi dans le pro- 
gramme. 



Bruno BOSSO 



P.S.: Metlez-vous en "CAPS LOCK". 



1 


REM 


**** 
















R6M 


• 


















pzr. 






ECRI5 SUR 














REM 


* 




















» 






















+ * 














13 


CO TO 


7000 




REM 








103 


P = M 










REM 


ft 


I 


utialisrtion • * 
















(i 






LET 


ftC 


■0 






LCI 


Ra 






na 


LET 


Xa 


.i 


LET Y=6 






,NS 






IIS 


' If 


XE 


=29: let ye=0 






UIE*3: LET Pis"*" 




RETURN 






199 


REM 








REM 










REM 




DRTAS 














R = M 






'1VZ 


3h, < 


n 


7 










a, 


0,8,0,6,6,5,7,8,1, 



si6 6rta i, a, i,o, .5,2, .5, a, .s, 

,.5,0, .5,-1, .5,0, .5, 1,1, a 
390 REM *******44444*4***44 

999 REM «« ** 

1080 REM .* EXPLOSION TIR *4 

1001 REM 44 . ** 

1002 REM 444**444***4***444* 

1003 PRINT AT Y,X; INK 2; "£" 

1004 BEEP . 1.80 

1005 PRINT RT Y,X; INK 2; "2": 8 
EP .1,10: BEEP .1,-10 

1006 FOR 1=1 TO 7: BORDER 7-1 j 
EEP .1,-3*7: BEEP .05,1: PAPER 
! NEXT I 

1007 BORDER 7 
1B13 RETURN 

1999 REM *t«*******444****4 

2000 REM ft* #* 

2001 REM 44 DE5SIN- u 

2802 REM 4* TRBLERU 1 »• 

2803 REM ** ** 

2004 REM iHtiHtiiitHM.i 

2005 CL5 : PAPER 7: BORDER 7 

2006 CLS : PAPER 7: BORDER 7 



2013 
2014. 
2015 
2016 
2017 
2016 
2019 
2020 
2822 
2823 
2024 
2026 
2027 
202B 
2030 
2031 



PRINT AT 1,1; "X" 
PRINT RT 1,2, B« 
PRINT AT 1,30; "jf 
FOR 1=2 TO 15 " 
PRINT RT 1,1; ■■#" 
PRINT RT 1,38; "#" 
BEEP .025,30-1 
NEXT I 

PRINT RT 16,1; "Jf" 
PRINT RT 16,2; Bf 
PRINT RT 16,30; "V 
GO SUB 4000 
PRPER 7: INK 
IF Tfl<4 TMEN RETURN 
PRINT RT 7,13; "jc***-" 
PRINT RT 8,13; "#"; AV 

PRINT RT 



2034 PRINT RT 11, 13; "ttUK 11 
2040 RETURN t- 

204.9 REM H*(HtHHHHt*t 
2050 REM • * t* 

2061 REM 4< 3RPINS ET 44 

2052 REM 44 RLRRME5 44 

2053 REM 44 •* 

2064 REM 444444444444444444 

2055 LET NS=tTfl4l0)/2 

2056 LET Nfi-INT (Tfl»10) /1.S 
2007 IF NS>70 TMEN LET NS-70 

2860 FOR 1*1 TO NR 

2861 LET Xfl = lNT [ (RND414J +1) 42 

2862 LET Yfi»INT ( (RND47J +1) 42 
2853 PRINT RT Yfl , Xfl; INK 2; "»p" 
2B64 NEXT I 

2065 FOR 1*1 TO NS 

2066 LET XS-INT ( CRND*14> *1) *2 

2067 LET YS»INT < IRND47) +1) 42 
2868 IF RTTR (Y5,XS)=60 TMEN GO 
TO 2056 

2871 PRINT RT YS,X5; INK 4; "+" 

2872 NEXT I 

2B73 PRINT RT Y,X; INK 1; P* 
2074 RETURN 

3000 REM 44»4444444444444»4 

3001 REM 44 44 

3002 REM 44 DEPLRCEMENTS 44 



3121 REM 44 «# 

3122 REM 44 PREND SRPINS 44 

3123 REM 44 «* 

3124 REM 444444444444444444 

3125 LET SC=SC*10 

3126 BEEP .003,10 

3127 GO 3U0 4000 
3120 LET NS-NS-1 

3129 IF NS<2 TMEN LET THsTR+1: 
TO 7010 

3130 RETURN 

3198 REM 44444*44444444*444 

3199 REM 44 44 

3200 REM 4* SIRENE *4 

3201 REM »4 4# 

3202 REM 444444*44444444444 

3203 FOR 1*1 TO 6 

3204 BEEP .2,-10 

3206 NEXT I 

3207 LET X«X-fl 
3206 LET Y*Y-B 

3289 LET XE=29: LET YE=0 
321B IF XEOX TMEN LET XE = XE-1: 
BEEP .02.XE4-1: PRINT RT YE,XE, 
INK Z;"W- ": CO TO 3210 

3211 LET YEaYE+1 

3212 IF YE-loY TMEN LET YE=YE-t 
: BEEP .02,YE*5: PRINT RT YE-1, 
E; OUER i; INK 7;" - ; RT YE,XE; 
NK 3; OVER 1J"A"J GO TO 3212 

3214 GO SUB 1000 

3215 LET UIE aUIE-1 

3216 GO SUB 4-000 

3217 IF UIE<1 TMEN GO TO 8000 
3210 LET X=14: LET Y«6 
3219 GO TO 7010 



3498 


REM 




3499 


REM 


** 4* 


3500 


pl-::; 


** PRESENTRTION *» 














3503 


Ci "5 


: PRPER 7: BORDER 


3S04 


CL3 




3505 


■ ■ 


1*0 TO 30 



3506 PRINT RT 0, I 

3507 BEEP .01,1 
350B NEXT I 

3509 FOR 1*0 TO 21 

3510 PRINT RT 1,31; 

3511 BEEP .01,1 

3512 NEXT I 

3513 FOR 1*31 TO 1 

3514 PRINT RT 21,1; 

3515 BEEP .01,1 

3516 NEXT I 

3517 FOR 1*31 TO 1 
3510 PRINT RT 1,0; ■* 
3519 BEEP .01 " 
3528 NEXT I 
3521 PRINT RT 

3532 PRINT RT 3,4; 

3523 PRINT RT 4,4; 



4; "* # tt ft # 



tJk 




24 PRIM" 



NT^RT 6,4; "ft # i, * ft 
™*$* 7,4;-ft*45l ft^ft # 

ft PR l m 'ft" T a ** jM * # # * 

PRfNT^flT 9,4; -ft 

530 pA 






I J . 



LET 
LET 



LET 



3003 REM 44 

3004 REM 44444444*444444444 

3006 LET flt-INKEYt 

3007 IF fi$«"" TMEN GO TO 3012 

3008 IF ni*"K" TMEN LET fl=-l: 
T B=0: LET P*="i" 

3009 IF A««"L" THEN LET i 
8*0: LET Pla"*" 

3010 IF fl*s ,T fl" TMEN LET RaO: 
B*-l: LET P«a"«" 

3011 IF fl«-"Z" TMEN LET fl-0: 
B*l: LET PS*"*" 

3012 LET X*X+R 

3013 LET Y«Y+B 

3014 BEEP .0015, X+ (21-Y) 

3015 LET PaflTTR (Y,X) 

3016 IF Pi80 THEN GO SUB 3120 

3017 If Pj>56 TMEN LET P=0: GO TO 
3100 

3018 IF P=58 THEN GO TO 3200 

3020 LET P=0 

3021 PRINT RT Y-8,X-fl; INK 6;" " 
3822 PRINT RT Y,X; INK 1; P% 
3038 RETURN 

3099 REM 44»4444444*4*44*(** 

3100 REM 4* », 

3101 REM 44 ELECTROCUTION 44 

3102 REM 44 *4 

3103 REM 444444444444*444444 
3184 LET X*X-fl 

3105 LET Y*Y-B 

3106 PRINT RT Y,X; INK 1: P« 

3107 IF R«l TMEN LET A*«'-K" 

3108 IF fl*-l THEN LET fl«*"L" 

3109 IF B*l TMEN LET fl*=.-fl" 

3110 IF 8=-l TMEN LET R«*"Z" 

3111 LET UIE*UIE-1 

3112 GO SUB 4000 

3113 FOR 1*30 TO 15 STEP -1 

3114 BEEP .05,1 

3115 NEXT I 

3116 IF <JIE<1 TMEN CO TO 8000 

3117 LET P=0 

3118 GO TO 3008 
3128 REM 4*4******4»444*444 



: 1*4 



ft ft 

ft ft ft 



INUER 



16 I f "*" PRINT RT i*-i; ,, * ,, iRT 

353UNK3: PRINT RT 15 , I; "V; RT 

3536 NEXT I: PRINT AT 15,9, INK 
6; PRPER 0;"© Bruno 80550^ 

3537 PRINT At 18,9; INK O; 
SE l;"'J- POUR JOUER" 

3538 PRINT AT 19,2; INK 0; INUER 
SE 1;""R- POUR LES REGLES DU JEU 

3539 RESTORE 501: FOR 1=1 TO 32' 
REfiD U: BEEP . 24 , U+5 

Sit? ?E INKEY$="J" THEN RETURN 
3541 IF INKEY»="R" THEN GO TO 35 



3542 NEXT 

3543 REM * 

3544 REM *4 REGLES DU JEU 
3543 REM *# 

3546 REM *4444444444*4»*4* 

3547 CLS : PAPER 
7: INK 1 

3548 PRINT " 
JEU" 

3549 PRINT 
PEDRO doi 

3550 PRINT 
de sapins" 

3551 PRINT 

3552 PRINT 
terrai n'" 

3553 PRINT 
S . . . " 

3554 PRINT 
Us aiarse: 

3555 PRINT 
rj fiee." 

3556 PRINT 
aog»ente" 



GO TO 3539 



CLS : PAPER 

REGLES DU 

COane tous les ans , 

ranasser le laxnui 

enare . 



ntion ! 



It 



lui appartient pa 
lui faut evit«r 

la barricre elect 
noabre de sapins 



355 J . . . 

3558 PRINT 
c t.es touches 

3559 PRINT - 

3560 PRINT " 



3563 PRINT 



egu Lierenent . 



UO'JS le d: 



gez 
la gai 



tv< 



'L' 
'fl' 



'ers la droi te 



JS64 print vou lez vous joi 
er (o/n)?- 

3585 IF 

3566 IF 
00 

3567 BEEP .01,15: GO TO 3565 

4000 REM 4*4**444**4**4*4*441 

4001 REM 44 

4802 REM ** AFFICHE LE SCORE 

4003 REM 44 

4084 REM ******»t**(4*4*f*»**44 

4005 INK 3: PRINT RT 18,0, ")s+4*± 

4006 FOR 1=19 TO 20 

4007 PRINT AT 1,0; "ft" 

4008 PRINT AT 1,31; ''ft" 

4009 NEXT I 

4010 PRINT RT ?1 j 1 ?);" f t Tt 1 1 H l-TtT 

III I ' l ' tll 'l ilT l "* " 

4011 PRINT AT 19,1; INK 1; BRIGM 
T l: -SCORE CREDIT SCREEN HIGM-5C 
ORE 

4012 PRINT AT 20,l;SC;RT 20,9;UI 

4013 PRINT RT 20,16;TR;RT 20,23; 

4014 RETURN 

6998 REM 44*44*4*444444*444 

6999 REM 44 

7000 REM (4 

7001 REM 44 

7002 REH *4 

7003 REM ****44***«*«*44444 

7004 CL5 : PAPER 7: GO SUB 100 

7005 CLS : PAPER 7: INK 1 

7006 PRINT AT 10,5; FLASH 1; BRI 
GHT l; -PflTIENTEZ UN INSTANT'';AT 
11,5; " S.U.P 

7007 GO SUB 9080 

7008 BEEP .25,30 

7009 GO SUB 3500 

7010 LET P:0: BEEP .25,30 

7011 GO SUB 2000: GO 3U8 2850 

7012 PRINT AT 17,4; INK 0; FLASH 
1; "PRESS ANY KEY TO BEGIN" 

7013 IF INKEY*="- THEN GO TO 701 



7020 GO SUB 3006 

7021 GO TO 7020 

7500 REM 44444*444444*4*4* 

7501 REM 44 44 

7502 REM ** TRBLERU 2 44 

7503 REM 4* 44 

7504 REM 4444*44444444*44* 
7305 INK 



SPECTRUM 



7510 GO SUB 4008: INK 

7528 FOR 1*2 TO 15 

7529 e PRINT RT 1,1; -ft", AT 1,30; 

.-.30 PRII,, , 

7S31 LET NS=1S: LE 
8 2060: GO TO 7012 
6800 REM 4»4»44»***444***t* 

8001 REH 4* 

8002 REM 4* FIN DE PARTIE 4 

8003 REM 4* . 

8004 REM 4***44444*4444*444 
6006 PRINT AT 8,11; FLASH 1 
GHT 1; INK 0;-GAME OUER" 

eaia if so hi then let hi-sc 

8015 RESTORE 510 

8016 FOR 1*1 TO 10 

8017 READ 8,C: SEEP B-.ll.C 



NR»20: GO SU 



6018 NEXT _ 

8020 FOR 1=1 TO 20 

UB 100: GO TO 7008 

9000 REM *44444*****4444 

9001 REM 44 REDEFINITION 

9802 REM 4* CRRRCTERES 

9803 REH 444**4********* 

9804 RESTORE 9021 
9006 FOR I-USR "R 
9807 READ DR 
9008 POKE I.Dfl 
9089 NEXT I 

9810 RETURN 

9820 REM 4 A 4 fl * 

9021 DATA BIN 00011008 

9022 DATA BIN 00111108 

9023 DATA BIN 00011000 

9024 DATA BIN 01111110 

9025 DATA BIN 88111100 
9826 DATA BIN 11111111 

9027 DATA BIN 00011000 

9028 DATA BIN 08011000 
9829 REH * B * B * 

9030 DATA BIN 01080001 

9031 DATA BIN 01101011 

9032 DATA 8IN 01111111 

9033 DATA BIN 01101811 

9034 OATft BIN 01001001 

9035 ORTfl BIN 00001000 

9036 DATA BIN 00001003 

9837 DATA BIN 00001000 

9838 REH * C 4 C * 

9839 DATA BIN 000110B0 

9040 DATA BIN 00011000 

9041 DATA BIN 00010010 

9042 DRTA BIN 00111100 

9043 DATA SIN 01011000 

9044 DATA BIN 00011000 
9845 DATA BIN 80010100 
9046 DATA BIN 00188010 



NEXT I: GO 5 



TO USR "0"+7 




9047 REH _ 

9048 DRTA BIN 00011800 

9049 DATA BIN 00011000 

9050 DATA BIN 81001080 

9051 DATA BIN 00111100 

9052 DATA BIN 00011010 

9053 DATA BIN 00011000 

9054 DRTR BIN 00101000 

9055 DATA BIN 01000100 

9056 REH * E * E * 

9057 data bin 00000000 

9058 DATA BIN 00001000 

9059 DATR BIN 00010001 

9060 DATA BIN 11111110 

9061 DATA BIN 11011180 

9062 DATA BIN 00010010 

9063 DATA BIN OO10O0O1 
9084 DATA BIN 00000000 

9065 REM 4 F * F * 

9066 DATA BIN 00000808 

9067 DATA BIN 00100001 
9066 DATA BIN 00010010 

9069 DRTR BIN 11011100 

9070 DRTA BIN 11111110 

9071 DATA BIN 00010001 

9072 DATA BIN 00001000 

9073 DATA BIN 00000808 

9074 REM * G * G * 

9075 DATA SIN 00000000 

9076 DATA 8IN 01111111 

9077 DATA BIN 00000010 
9876 DATA BIN 88011111 
9879 DATA 8IN 06101111 
9030 DATA BIN 01111111 

9081 DATA BIN 00010010 

9082 DATA BIN 00111111 

9083 REM * H * H * 

9084 DRTA BIN 00000000 

9085 DATA BIN 11110000 

9086 DATA BIN 00000010 
9B87 DATA BIN 11111110 
9086 DATA SIN 10000000 
9069 DATA BIN 00000000 

9090 DATA BIN 00000008 

9091 DATA BIN 00000888 

9092 REM * I 4 I * 
9893 DATA BIN 08181830 

9094 DATA BIN 00010000 

9095 DATA BIN 00010000 

9096 DATA BIN 00000088 

9097 DATA BIN 00001010 

9098 DATA BIN 10100100 

9099 DATA BIN 01080100 

9100 ORTA BIN 01000000 

9101 REM 4 J 4 J 4 

9102 DATA BIN 00011000 

9103 DRTA BIN 00011008 

9104 DATA BIN 11111111 

9105 DATA BIN 00011080 

9106 DATA 8IN 00011000 

9107 DATA BIN 11111111 
9100 DATA BIN 00011000 
9109 DATA BIN 00011008 



9110 REM 4 K 4 K 4 

9111 DATA BIN 00100100 

9112 DATA BIN OOlaoiaO 

9113 DATA 8IN 00100100 

9114 DATA BIN llllllll 

9115 DATA BIN llllllll 
9115 DATA BIN 80100100 

9117 DATR BIN 08100100 

9118 DATA BIN 00108100 

9119 REH 4 L 4 L 4 

9120 DATA BIN 08000000 

9121 DATA BIN 00000100 

2J-S5 £ flTft 0IN 11111110 

9123 DATA BIN 00011100 

9124 DATA BIN 00111100 

9125 DATA BIN 11110100 

9126 DATA BIN 11186100 

9127 DRTA BIN 11100188 
912B REM 4 H * M * 

9129 DATA BIN 11100100 

9130 DATA BIN 1110018a 

9131 DATA BIN 11110108 

9132 DATA BIN 80111100 

9133 DATA BIN 08011100 

9134 DATA BIN 11111110 

9135 DATA BIN 08800188 
9138 DATA BIN 00000000 

9137 REH * N * N * 

9138 DATA BIN 00100111 

9139 DATA BIN 00100111 
9148 DATA BIN 88181111 

9141 DATA BIN 00111100 

9142 DATA BIN 00111000 

9143 DRTR BIN 01111111 

9144 DATA BIN 00100030 

9145 DATA BIN 00000000 

9146 REH * * » 

9147 DATA BIN 00000000 

9148 DATA BIN 0010OQ00 

9149 DATA BIN 01111111 
9158 DATA BIN 00111000 

9151 DATA BIN 00111100 

9152 DATA SIN 00101111 

9153 DATA SIN 00100111 

9154 DATA BIN 00100111 

9155 REM * P 4 P * 

9156 DATA BIN 00010800 

9157 DATA BIN 01000810 

9158 DATA SIN 10100100 

9159 DATA BIN 00000000 
9168 DATA BIN 80100O1O 

9161 DATA BIN 81001001 

9162 DATA SIN 81810100 

9163 DATA BIN 00010010 

9164 REM * 4 ft 

9165 DATR BIN 00000008 

9166 DATA BIN 00010010 

9167 ORTA BIN 01000000 

9168 DATA BIN 10000011 

9169 DATA BIN 00001000 

9170 DATA SIN 00100000 

9171 DATA BIN 01001001 

9172 DATA BIN 01011118 



LES P'TITS CHINOIS P C1251 



Chef du gang chinois de la Main Noire, vous etes en 
guerre avec le gang rival. Et vous envoyez des merce- 
naires a votre solde pour trucider les membres de I'au- 
tre gang... Mais vous ne pouvez envoyer que trois 
hommes a la fois. Si vous envoyez un homme, et que 
celui-ci en rencontre un, il y a egalite. Si il en rencontre 
deux, ce sont les deux qui ont le dessus. Mais si un 



_£s ?-;-% c->o: 



2e: 3 °: 



25: J"eit>e:a»s 

<3::- M=".r 608U3 ZM 
W.-OZ v=; -j) -.9 



oo:x <:,2>3)'i<f 

f>::-.F (<»=•:-> L" n=;: 

50"0 65 
■ 62::- <<s='2'> lET a=2: 

G0"0 65 
63::= (<>=-3-) LcT A=l: 

OO'O 65 
6«:53-2 68 
65:3= 3-0 <3> 
78::- 0=: M"0 188 



homme seul en rencontre trois, ceux-ci vont s'emmeler 308: " c 3=3 9:n t "=G6l:t 
les pedales, et perdre ineluctablement. Si deux E " : GO'O 98 

hommes en rencontrent trois, pas de probleme, les 3:8: : c 3=2 ?r:st -vous G 
trois gagneront les deux. Attention, le PC est tres mau- AGNEZ'U»J*li goto 9 

vais ioueur... 9 

328::" B=: PRIrl.T 'J6 GflG 
AlbertZBROTO >S... ':C=C»:: GOTO 9 

8 

«GHEZ'IJ"J+1I G0"0 9 «88: 3l *:-i- 'VOUS UVE2 -:j 
8 i' SOFTS' 

288::f 3=2 ?*:.-.t '£1301.17 4:e:»?;s- •-.- bo I ":c; y 

E": G0 T 98 °0:i-S - 

2:b::f 3=: °r:nt -vous g 428::= o. T 3EEP 11 =?:>- 

(IG^EZ - :;=J.:: GOTO 9 'OUAIS' ' Si GflG^E" 

8 '•: G0"0 458 

•.E...':C=C*:: GOTO 9 22B::F 3=3 »8:>.T -je GAG 438::" C=J BEE l: "!:nT 

8 ME...*IC«C*1I GOTO 9 'C011E -OUS SOTTES 3 

:28:: c 3=3 PRIM" "VOUS G 8 E": 3 R:-iT "ir<!E ^iVE 



88::= (1=2 GO'O 288 
35::= 8=3 SOTO 388 
98:1EX" s 
95: GOTO 488 

:88::= 3=: °r:nt 'eg».:t 

£•: GO-0 98 

::e::= 3=2 =s;nt *je gag 



9580 REM 




9501 REM 


44 CARRCTERES 4 


9502 REM 


44 GRRPHIOUES t 


9503 REM 




9504 REM 




9505 REM 




9506 REM 




9507 REH 




9508 REM 




9509 REH 




9510 REM 




9511 REM 


D: * H: * 


9312 REH 




9513 REH 




9514 REM 




9515 REM 




9516 REM 




9517 REM 


CM : W P : m 


9516 REM 




9519 REM 




9520 REH 




9999 SRUE 


"PEDRO" LINE 1 




■ 


PU» J 


t *E'I PR's;- *c 


n'-SiDE^ vaT^nycij 


43'.::? C= 


J GOTO 450 


44fl:7ltcP 


tl p:?T*t -VOUS 


RVtZ 


SURE-ENT-: 


PRIST 


•TUIChC. "AiJVA 


:s joueu?.' 


459: INPUT 


•VOU^EZ-VOUS 9 


HJOlER'JAJ: rp a«=-Q 


* HE 


^ 10 


460.E>D 




30e-PRIMT 


•vous CWOISISS 


~Z EN 


r RE' 


S10: 3 r?;N' 


"I.2.E" 3 CSIM 


OIS.' 




52e:^>~ 


'ET 3:cK SUP., 


101 ftUSSI' 


S30I°RIMT 


•1 GAG*S SUR 3 


540:?RI*7 


"2 GAGr.E*T SUR 


556:?RI* T 


'ET 3 GAGNEN7 


SUR 2 




590:RE _ 'JR> ■ 



16 



TAKE LIBERTY 



NIZ700 



Dans ce jeu, un bagnard cherche a retrouver sa liberie 
honndtement. Ce personnage doit remplir une mission 
plusieurs fois alin d'obtenir un score minimum de 
40.000 points. 

Frederic DUCHER 

Le plan de la prison est une grille de 40 x 25 el le graphisme 
provient des fonclions semi-graphiques du MZ 700. 
Si Ton veut changer la valeur du score minimum a atteindre. il faut 
se reporter a la ligne 760. Pour changer la valeur maximale du 
chrono. il faut changer la variable D aux lignes 360 et 770. 



, fl (j Er i 

20 REP«*TftKE-LIBERTY±*nZ-7e8*i 
30 rep 

40 REP"«PflR 0UCHER FttxXtXxxXX 

50 REn 

60 REP 

70 REP**PRES£NTflTION*i 
80 REP 

90 PRINT"B" 

100 C0LOR,,4,3:PRlNTCHR»C22) 
110 CURSORS, S:PRINT" CPCBCB F5C8E9 C8 
CB C8CBCB 

120 CURSORS, 6: PRINT" CB C8 C8 C8C1 
□5 C8 ■ 

I3B CURSORS,?: PRINT" CS C8C8C8 CBC 
8 C8C8 CB CB' 

'48 CURSORS, 8'PRINT" CB C8 C8 C8C10 
5 CB C8 CB' 

150 CURSORS, 3: PRINT" CB CB CB CB C 
8 C8C9C8- 

160 PRINT :PRINT 

170 PRINT" CB CB CBC8E3 C8C8CB 
C8C8E3 C8CBCB CB CB ' 

'80 PRINT 1 * CB Cfl CB CB C8 C8 
C8 CB CI04DS' 

'90 PRINT" CB CB C8CBC8E3 C3CB 
C8C8C3 CB CB ' 

200 PRINT" Ce CB C8 C8 CB C8 
E3 C8 C9 




cacacB ca cbcbcbcs cecs 



210 PRINT" 

C8 CB C8 CB CB ' 

220 CURS0R15, 23-PRINT" 9y OUCMER F. CCJ 

1384" 

230 TEHP04 :nUSlC*-D2RB-DSR0-O3-F4-A3-G4- 

Q3R8-OSRBO2RBD4R0D2C4-fll-GI-fl5R4" 

248 REn 

258 REn*lNlTiAUSftTI0N* 

268 REft 

228 R£rti»RE6LES** 

288 PR1nT"D" 

298 CURSOR 6, 1 -PRINTf.?, 3;i"UOlJLE2-U0US L 

ES REGLES ? (O^N)" 

308 GET««:IFf»«— "THEN380 

318 IFfl«=*"N"TM£N GOTO 35B 

320 IFfl«O' , O"THEN308 

338 PRINT"B" 

340 G0SUBM38 

358 REH 

368 Nn=10:9-4:D"2BB0:T-1 :P^0 

378 PRInT"B" 

3B0 COLOR, , 1 ,?:pRINTCNR*t:22) 

330 GOSU9380 

408 REH 

410 REn**DEPL0CEnENT5.. .**** 

■"20 REn 

438 P1»S4182 

448 GETA*:D»D-1 

458 IFM-"B"TM£NPOKEPI,B:Pl»P1-40 

468 IF|=1« = "B"THENP0KEP! ,B'P1*P|f40 

478 IFA*="B"lNENPaK£PI,B:Pl=PI-l 

498 IFf»* = "B"THENPDKEP1 , B 'PI "PI -H 

498 C=PEE«(P13 

■^85 JFD<1088!mEnCURSOR2, 20 :PRINTD "CURSOR 
l, 23 -PRINTP'CURSPR3S. 72 :?R [NTT :GOTO520 
518 CURSOR! ,28'PRINTD:CURS0R1 .23;PRlNTP= 
CURS0R3S.22:PRINTT 
528 1FCCO673THEN620 

538 REn 

540 REn*tjO£ ENTRE DS UN PUR** 
550 REP 



568 F0RI-24IT025S 

578 nUS!C"-C6-08" 

588 P0KEP1 , I 

598 NEXT I 'B»B-1 

600 IFB=-8THENCURS0RI6, l 2 -"PRINT [2, 7 ]'*GflPC 

-OUER" :FORU=BTO800-*nEXTU:GOTOB1B 

610 G0T037B 

628 IFCCO1873THEN440 

630 REP 

640 REn**J0E RflPftSS UN "*' ** 

650 REn 

660 SC=SCtI :nUSlC"tB8tCB" 

678 IFSC=NniMENS=D=nuSIC"CD£FG":T=T*l *G0 

T0698 

668 G0T0748 

698 IFf-IBTHENB-B-M -5010758 

708 IFT=20THENS"B'l :G0T07S8 

718 IFT=35TnEN8:-B->l 'GOTO750 

728 IFT=ST*hENB=B»1 :G0TO?5B 

738 GOT 0750 

740 GOTO440 

758 P=PtS 

768 CURSOR2,23'PRlNTP*CURS0R35,22:PRINTt 

: IFP>-48000IMEN2028 

778 SC-8-Nn-W1*1 :D"2BB8 :F0RQ=BT028Ba :NE 

XTQ:G0T0378 

708 REP 

799 REP**FIN OU -lf.UtittM.tX 

BBS REP 

BIB PRINT'S" 

928 CURSORIB, lBiPRINT-'UDULEJ-UOUS REJOUE 

R ? C.O'-N}" 

838 GETfl*:IFA*=""TH£N83B 

848 JFA*="N"THENB?0 

850 JFA*O"0"TNENB38 

868 SC=0: GOTO60 

878 PRINT-D" 

880 CURSOR I 5, 3 =PR INT "****■**"**> *" : CURS0 

R15, 18:pRINT"*tTriNT PIS*t H .CURSOR'S, 1 1 -*P 

RlNT'«t**tt*****" 

890 FORU=0TOe00:NE>'TU 

980 FOR 1=54 I 68TOS4248 'POKE I , 6 -1 'NEXT J 

918 FORI=0TO24 :CURSOR0, I : PRINT"C8 CB 

C8 C8 C8 CB CB CB CS C8 CB C8 

C8 C8' 
920 NEXT I 

990 FORU=0TD3B8a;sE>TU 
940 PRINT"D":ENO 



I PEP- 



968 PEniiPLfW PRISON** 
970 REr 

980 PRINT' 7B70787B7B787B7878787B7B78787B 
78707078707B707B787B707B707878707B707870 
78787B70 

990 PR]NT"CBCBC8CBC8CBC8CBC8CBC8i.*TfiKE~L 

IBERTY**C8C8C8CBCBC8CBC8CaC8CB?8" 

1880 PRINT"C8 CB CBtkttt*tt*tXttXt 

tC8 C8 C37B' 

1018 PR1NT-C8 CB C8CBC8CaC8CBCaC8C 

8C8CBC8CaCBC8CBC8C8 C8 C8C8 CBC878 ' 

1020 PR I NT -'CBCBCBCS CB C8 C8C8C8C8 

CB CB C8CB70' 
1030 PRINT"C8C8 CB C8C8 C8 C8C8C8 
C8 C8 C9 C8C8CBC8 C8CBCBC8 C8CB70'' 
1040 PRINT"C8CB CBCBCBCBCB C6C8 
C8 C8 C8 CB CB C8CB70 ' 
1050 PRINT"C8CB C8 C8 C8C8 C8C8C8C 
8C8 C8CBC8 C8C8C8CB CB C870" 
1060 PRINT'Ca CBC8CBC8 C8C8 CB 

CB ce?B- 

1878 PRJNT-C8 C8 CB CBC8CB C8CBC 



ECSC8C8 CBC8C8 CB CB C8CB CB70' 
1080 pRiNT'caca cecacecB C8 CBC8 

CBCB CB Cfl78~ 

1090 PRlN'-'CBCS CB CB C8CB CBC8 CB C8 

C8C8 C8CBC8CBCBCB CB CBCBC8CB CBC87B ' 
1108 PRINT"C8CB CB CBCBC8CB Cfl CB 

CBCBCB CB C8CB CB?8" 

1118 PRINT"C8 C8CBC8CB CB CBCBCBCS C 

8 C8C8C8CB C8CB Cfl CB CB78" 

1120 PRINT"C8CB CB CB CB C8 

C8 CB CBCfl CBC8CBCB C87B ' 
1130 PRINT'XBCB CB CB CB CBC8CB CB 

cscB ce ce cb cb?b" 

1140 PRINT"CBCB CB CBCBCBCBCB C8C8 CB 

C8C8C8 CBC8C8 CB CB Ca7a" 

115B PRINT"C8CB CB Cfl CB C8 C 

ace cb ceca ce ceceye- 

1 168 PRINT'CBCBCBCeCBCBCBCBCaca CBC8 

cacaca cecace cbcbc8C8C8c8cbc8cb70" 

1170 PRINT"eONUS:?B7870CB C8 CB CBCBCS 

C8 Cfl7B7B636383636378" 
1188 PRlNT"78?B78?B?8787a?878C8 C8C8 

C8C0CBCB CBCBCB CB7B7e787B?0707870" 
1 198 PRINT"?8?0?87B7B7B?e7070C8 C8C8C0 C 
8 CSCB CB C8C8 CBTflBLeffU:'- 
1208 PRINT"SCORE:7B?B7BCB C8 

c8C8C87e?07e707a7B7a?e' , 

1218 PRlNT"7B?87e?e7B7B?9?a70CaC8C8CBC8C 

8CBC8C8C8CBCBC8CeCBCBC8C8C8CaCeC8787878? 

878707878* 

1228 FORI-532B7TOS4287STEP40 

1238 P0KEI,2BB 

1248 NEXT1 

125B F0RI-S428BT054248 

12BB POKEl^BBiNEXTl 

1278 REP 

12B8 REP*»P0SITI0N DES **' <* 

1238 REP 

1388 FORl-ITONP-SC 

1318 A-INURNDm* 3601*53248 

1328 C=PEEKCfU 

1338 IF[COann£N131B 

1348 POKEfl, 187 

1358 NEXT I 

1368 G-33 

1378 REP*«*B0NH0Pn£S RESTflNTS *** 

1388 F0RI-BT04 

1398 CURSORG, 1 3 :PRlNTCNR*C323 

1488 G=Gtl 

'418 NEXT I 

1428 RETURN 

1438 REP 

1448 REP*t*REGLES*« 
1458 REP— 
'168 PRINT"! 




1470 COLOR, ,0,2;PRlNTCf"?*t22) 

14B8 PRINT" TAKE-LIBERTT" 

1438 PRINT^PRINT" Uout atvtz u;ucr -Jot 

'5SB PRINT :PRINT"'« a '••cieur oo iu pr 

1518 PRINT ."PRINT"! Ib.rt. «r. ecnurse ot 

0800 point* de" 

1520 PRINT :PRINT"bonne tonauiK. °o-jr 

1530 PRINT -'PRINT'do;-. ra^titr pes i < 

1540 PRINT :PRINT"Ooni 1* a«aole o« la 

1550 PRINT' PRINT :PRlNT"Joe a 4 chut 

SC63636363). II «n perU ure " 

1560 PRINT iPRINT'cMiqu* foi* qu' 1 I es( 

1570 PRINT :PRINT"ur> *ur. 

1588 PRINT 

1598 PRINT 'PRINT"(appuyor iur-.une iou< 

1680 GETfU-lFP*"" 'TMEN1680 



1010 REP 

1628 REPi«**OEPLr»CEnEr.TS*»* 
1638 REn — - 

1640 PRlNT"fl" 

!650 PRINT" OEPLPCEHENTS' 

1660 PRINT :PRINT -PRINT' 

1670 PRINT =PRINT 

1680 PRINT" HMJT" 

1690 PRINT" T" 

1700 PRINT" GftUCK *8I-* DROITE" 

I71B PRINT" *" 

1728 PRiNT" BrlS 

173B PRINT :PRINT ;PRINT 

1748 CURS0RB,23:PRlNT"(app'J'*«r tur or>« 

oucne pour conl>u«r)" 

1758 GEIAt; IFrt«=""THEN1758 

1768 REP 

1770 REn**POlNTS*«* 

1780 RED 

1798 PRlNT-B" 

1880 PRINT- POINTS" 

1910 PRINT 'PRINT "PRINT 

1820 PRINT" Jo* <(t chronomiri par un 

1838 PRINT -'PRINT" L* rt.it d* i.«p* •*' 

cuniu 1 1 a ton" 

1840 PRINT :PRlNT".ccH-t Cur-. Itopi r>tsat 



1B70 PRINT 'PRlNT"a«» oulrte ottenu* qui 

1B8B PRINT ;PRINT"d. rajouttr o*i * a cna 

1830 PRINT :PRINT -"PRINT 

1900 PRINT :PR]NT"(QPPuvtr iur »n( 

1918 GETfltUFfl*-" 'TMENI3I0 

192B REP"OEPPRT ?** 

'938 PRJNT"B" 

1948 PRINT :PRINT -PRINT =CURS0R 18, I 8 "PRINT 

"ETES-UOUS PRETC.J ? (0/nJ" 

195B GETfl*;lFfl*""' TNEN195B 

1963 IF0t-"N"THEN143a 

1978 IFfl*O , 'O"TH£N1350 

1980 RETURN 

1938 REP 

2800 REPliflN UICTORIEUSE POUR JOE** 

2010 REP 

2020 PRINT'S" 

2330 F0RI*B!07'IFI=2TMENN£XTI 

2340 COLOR,, 2, I :PRINTCnR*C22) 

2858 CURSORB, IB 

2868 PRINT" CBC8C8E3 C6CBC8E9 F5C8C 

8E9 C8 C8 FSCBCBES' 

2878 PRINT" CB CS CB CB C8 C8 C8 

CB CB CB" 
2B98 PRINT" C6CBCBC3 C8CBC8C9 C8CBC 
8CB CI05C1DS CB CB 

2090 PRINT" Cfl £3 CB FEES CB CB 
05C1 CB CB' 
2188 PRINT" C8CBCBC3 CB CB CB C8 

C105 FEC8CBC9 
2118 TEnP07;PUSlC"f>BC0EGflBC ,, 
2120 FORU=0TO2BB :«EXTU 
2130 NEXT I 

2148 RE 

2150 R£n**TP8LEflU DES SCORES** 

2160 REn 

2178 PR1NT"B" 

2188 PRINT 'PRINT -PRINT :PRlNT"UOUS WE? R 

ENTJU Lfl LIBERIE O JOE EN '' 

2198 PRINT ;PRINT" ■";!;' TftBLE 

ftUX -~~--- * 

2288 IFUUTHENG0SUB2268 

2218 PRINT 'PRINT :PRINT"LE PEILLEUR SCORE 

EST DE" 
2220 PRINT -PRINT" ";W;" TftBLE 

2238 PRINT ^PRINT'ET ft ETE REALISE PAR •" 

;P* 

2248 F0RU-BT038aa:NEXTU 

2258 G0T0B18 

2268 PRINT'TON NOn ■"■ INPUTfl* :W"T RETURN 



► Suite de la page A 



BURGER 



15889 LOCftTE 1 , 7: COLORl :PRINTPVIfiS 
15816 LOCftTE I,8:C0LOR3:PRIKTPPB«:HEXTI 
15811 LOCATE 17,15:C0L0R 3, 8:PRINTPPB* 

15012 LOCATE 17, 14:C0L0R 1, 8:PRINTPVIftt 

15013 LOCATE 17,13=C0L0R 'd, 8:PRINTPSA« 
FOR 1=1 TO 17 
LOCATE I*3,!i:C0L0R 7,8: PRlHTGRf '. 



5028 
15830 
21) 

15848 LOCATE I*3,12=C0L0R 7,8:PPINTGPJ 
22) 
15858 
15668 
15865 
15878 
15088 



15180 
15118 
15126 
I5I36 
15135 
15140 
15150 
15168 



LOCATE I, 11SC0L0R 2 
LOCATE I,12SC0L0P 7 
PLAY-02A16L24D0' 
LOCATE I, li:PPINT" 
LOCATE I, I2:PRINT" 
MEXT I 

LOCATE ae.ilsCOLOR 
LOCATE 20, 121C0L0R 
LOCATE 17, lUCOLOR 
LOCATE 17, I2:COLOR 
FOR F=0 TO 88:MEXT 
LOCATE ?.<d, 1HC0L0R 
LOCATE 28,!2:C0LQR 
LOCATE 17, li:COLOR 



7:PRI 

7:PRI 

£:PR1 

7:PRI 

F 

7iPR 

7: PR 

2:PPI 



NTCP*'.l 
WTGRfC 

ntgpk; 
ntcrk; 



r<20J 
MT- 'tCR*' 

15170 LOCATE I7,12:COL0R 7JPRIMT' "*GRt( 

25 > 

15180 LOCATE 18,11!C0L0R 2:PRIHT" "*CR*< 

26> 

15198 LOCATE 18,12:CDL0R 7:PPINT" -+GRf< 

29) 

15195 FOR F=B TO 90:NEXT F:PLAy H L96A20DO 

15288 LOCATE 19,li:COL0R 2JPR1NT" 'tCRK 

26) 

15218 LOCATE 19, I2:C0L0R 7:PR1NT* -*GRt< 



15215 FOR F=0 TO 2G8:MEXT F 

15228 LOCATE 28, Hi COLOR 7:PRINTGR*< 19> 

15238 LOCATE 28, 12:CDL0R 7:PRINTGR«<28) 

15248 FOP 1=2 TO 12 

15258 LOCATE 17,I,6=C0L0R 3:PRIHTPPHI 

15260 PLAY-03A2L24D0- 

15278 LOCATE I7,I,0:PRINT ' 

15268 NEXT I 

15298 LOCATE 17, 12,9:C0L0R 3:PRINTPPH* 

15295 PLAY-01L5A28DOUOD0D0DODOL96D0" 

15360 LOCATE 17, 13,8:C0L0R 2, 1 :PRINTKET* 

15316 LOCATE 3, 17, 81COL0R6, 8:PRINT-Vous 

voila transfor»e en ";: COLORl : PRINT-KETC 

HUP" 

15326 LOCATE 3, 18, 8:COL0R6: PRINT-Votre s 

core est de:';SC 

15336 LOCATE 3, 19,6:COL0R6: PRINT"Un autr 

e festin CO^t*)?' 

15348 A*=IHPUTf<I) 

15345 IF SORE THEK RE=SC 

15356 IF A*=*0- THEN GOTO 16 

15360 IF A*='N* THEN LOCATE I7,7,0:ATTRB 

1, 1 : COLORl :PRI NT 'F IN- : COLOR 2,8:ATTRB8,0 

:END ■ 





1 Suite de la page 13 



PECHORIC 



18AA PRINT"d*i Povssons.les tilr* ^11 

er dsoE vos" PRINT 

1899 PPINT"P»r,i«rrs constituent votre 
Besjce." 

1199 PRINT FP.IHT" !?ulei«»r,t t« c*P*Cl 
te de votre besnc*"- 

1119 PRINT"est Llnit«,«lM>i devez VOU 
S caPt'.irer-":PRIHT 

1126 PRINT"d«s Poisscns dAna Us n*nn» 
S Punier-!. "PRINT 

1136 PRINT" Bows de 39 f»ts si vous d 
iri9er »•" 'PRINT 

1149 PRIHT-'PoUsor. w»rs l'*PP«t «." 

11^9 PRINT, PRlNT'*N'imPort« ludU toy 
che p-rmet d* " 

1169 PRINT" Ur.cer un c*iUou(er. «»rd* 
nt U touche-.pRINTCHRtdl)) 

1176 PPINT'^nfoncee)." 

11*9 PPINT:PPINT 

1182 WftITie9^PLHY7,8,9,e 

1185 r;03UB1258 

1139 PPINT-flPPUYEZ SUR UNE TOUCME POU 
R COMMENCER" 

1299 PEPEA.T:UNTILKEY«0"" 
1210 RETURN 

1230 FOR5=iro5 MIJSIC1.3. 1.12'UflIT30 M 
USICl,3,3,12'MflIT30'MUSICl,3,4,i2-URIT 
39 
1269 REft0fl'MJU8ICl,2#ft#l2'MflIT38'NEXT8 
1279 UflIT60'r1USICl.l,1.0'PLftV7.0«e.0' 
RETURN 

1300 IFPO>HSTHENHS-PO 
1310 14W«*"HI-SC0RE — > " 
1320 CL3-PAPER0'INK1 
1330 PRINTCMR»t4) 



1349 PR1NTCHR»<27)"J PEC 

M'0RIC"PRINTCNR*(4) 

1330 FORS-3T07 PLOTl*K.S,20iPLOT2»K,S 
,7:NEXTS 

1360 FCRS=35T03STEP-I 'PL0TS*K,6. "f9" 
WA.IT30 IFS>23ORS<26-LE"': , JW«)THEN1380 

1378 Ci»nMIP»<WU*,S*l-LEN(WWi),l ) PLOT 
S+l+K,6,D«'GaTul390 

1330 PLOTS* 1+K, 6,32 

1399 PINGiNEXTS 

1393 PL0T26+K,6.STR»<HS) 

1397 POKE10.HS 

1490 PL0T3*K.6." "Z'PP 

1495 RESTORE 

1410 PL0T3*K.1Q,"FIPPUYEZ SUft " -PLOTS 
+K,12,"X POUR JOUER" 

1412 PL0T6*K.14,"C POUR P.RRETER" 

1413 PLOT1+K,I0,3 PL0T1*K, 12,3 PL0T1* 
K.I4,3.PLOT1+K,20.21 I PLOT2*K,20,7 

1417 fl*-KEY« 

1420 FOP r : = l friiari'VR»-"KEY» IFft*< >""THE 
Ml 690 
1439 NEXT? 

1459 F0RS»?3T03=.TEP-1 PLOTS*K .20. "f9" 
l.|RlT39'R»-'<EY«:lFft«<>""TNEH160d 

1 460 PLOTS+ 1 *K . 26, 32 > P I NG = NEXTS i PL0T3 
*K,20," " 

1470 G0T0142O 

1600 IFft»»"X"THENPPINTCHR*';6\CHRI( 17 
) i RUN 

1610 1FH*<'*"C"THEN1340 

1620 CLS PF1PER7' INK4 

1623 IFK-lTHENCflLL»F8D9 ELSE CP.LLHF89 
B 

1638 PRINT"Toua l*» Poissoim d« PECH' 
0P1C t* r«-" 

1649 PRINT PPINT"Bi*rcierit d'*volr jou 
e #v«c «wx I " 

1630 PRINT'PRINT'-IU «»P«r«nt blentot 

t» retfouver*. " 

1635 PRINTCHR»C4)> 

1660 PRINT PRINT ■PRINT. PRINT PRINT" 

"CHR«(27)"J fiU REVOIR "".PRINTC 

HR*' 4 ) 

1670 PLOT1*K,9.2'PLOT1*K,10.2 

1690 PRINTCHR*<6>iCHR«<;17) ■ 



VIC JUMP FROG 



VIC 20 



Ce programme fonctionne sur VIC 20, equipe de 3K 
d'extension ou un super expander. Une chasse aux 
mouches n'est pas loujours facile, surtout quand une 
grenouille vient se meter au jeu. 

Vincent FORGET 

Mode d'emploi: Voire mission est de bien nourrir VIC Frog. Aidez-la 
grace aux touches; 

ng iW MiMmmM W 

1 PEK« FflPC-ET VINCENT* 

2 REM* VIC JUMP FROG • 

3 ] -\ • 

J P0KE36878. 15 

5 GO3UB1200 RS-9 HSC=9 VB=0 DFJ="" 

6 PTS-9 BMX=0 

7 PRINTTW P0KE3G878,15 

8 TI*«"009899" FOIM 

? Gli;mbi08O0 

10 print"*-; 

11 PRINT" 

12 PRINT" 

13 PRINT" 

14 PRINT" 
13 PRINT" 

16 PRINT' 

17 PRINT" 

18 IFVB-1TNEN28 
1? P0KEBNP,42 
20 PRINT" • — \ " 



25 PRINT" / o \" 
30 PRINT" / I " 
40 PRINT" / /•< 

50 PRINT- /- / — \ ]" 
68 PRINT" I I \y_^ 
70 PRINT" v \ -,\" 

80 PRINT'V V 

90 PRINT" |", 

10S PRINT"*"; 

105 IFVB"lTHENfl-B021 G0T0138 
110 IFBMXMB0THENGOTO22008 

120 GETfif IFfi«-""THEN20000 

121 IFfl«="L"THEN130 

122 IFfl#="fl"THENR.«7935 G0T0418 
124 IFfl*»"S"THENfl-7?ll G0T0348 
126 IFP.f-"D , 'THENfi»7867 QOTO700 

128 IFfl»-"F"THENP-7301 GOTO870 

129 GOTO 120 

130 Ol 

132 BMX-BMX*VP,L'TI*> 

140 POKEH.B 

150 IFC"lTHENF=B+6 

160 IFC-2THENB-B-12 

170 IFC-4THENB-E-6 

1SB IFPEEK<P.*1)=42THENSRS»1 GOSUB3900 

240 C-C*l H*H*1 

230 IFCO7THEN140 

260 POKER, 73 

270 FORI-1TO100:NEXT 

273 IFVB=1THENGOTO3880E< 

288 C-B 

298 POKER. 32 

388 R-fl-lX-C-I 

398 IFO1THEN290 

398 POKER, 101 

480 B0TD8 

418 PR I nt "3MMHMH / — \ 

412 BHX-BMX«-VfiL<TI*> 

415 P0KEBNP.42 

420 PRINT* s O V 

430 PRINT" • I " 

448 PRINT" / s" 

430 PRINT" / / — \ f 

450 PRINT" I / /_/• 

470 PRINT" \J /- 

489 PRINT" I /" 

490 PRINT" \ V 
588 PRINT" x ■%■ 

510 PRINT"/ \" 

520 PRINT" |-; 

523 IFTI*>"000082"THENPOKEBNP,32-OOSUB9910 



338 GOTO 100 

342 *MX«BMX+VR-L<TI*) 

343 PQKEBNP,42 

350 PRINT" / o ' 

560 PRINT" / 

370 PRINT" / 

388 PRINT" • / — \ r 

398 PRINT" I I /_/' 

680 PRINT" NX /" 

610 PRINT" y /- 

620 PRINT" I /' 

630 PRINT" \ S" 

640 PRINT" S \" 

650 FRINT" v *s 

669 PRINT"/ 

678 PRINT" 
673 GOT0525 

788 print ■'muannai 

782 BMX=BMX*VnL<TIf> 
705 PQKEBNP,42 
718 PRINT" / o " 
728 PRINT" / 
730 PRINT" / 
740 PRINT" / / — \ r 
750 PRINT" I / | /• 
768 PRINT" \J //" 
778 PRINT" / /-* 
780 PRINT" / /" 
730 PRINT" I /" 
800 PRINT" S I • 
810 PRINT" \ V" 
820 PRINT" \ \" 
830 PRINT" \ -s 

848 PRINT"/ 

958 PRINT" 

333 G0T0323 

878 PRINT"nCCWna*KO0 

672 Bt1X=BMX*VRL(TI$) 

875 POKEBNP,42 

9B0 PRINT" / - 1 

898 PRINT" /■ 

988 PRINT" / 

910 PRINT" / / — \ r 

920 PRINT" i / /_/• 

938 PRINT" vj /" 

940 PRINT" I /" 

950 PRINT" \ V 

960 PRINT" \ V 

978 PRINT" \ "S 

983 PRINT"/ 

990 PRINT" 



•V pour sortir la langue. 
-'A' pour (aire monter la grenouite de 3 cases. 
•'S' pour (aire monler la grenouille de 5 cases. 
-'D' pour (aire monler la grenouille de 7 cases. 
-'F' pour (aire sauter la grenouille de 10 cases. 
Nolez que pour les touches "A', S' et 'D' la pression de la louche V 
est necessaire pour sortir la langue. Mais pour la louche 'F la pres- 
sion de 'L' n'est pas necessaire car la langue sort aulomatiquement. 
Si vous etes un crac, vous recevrez la gloire d'avoir voire nom ins- 
crit au meilleur score. 

993 F0RH- 1T023: NEXT 
1800 PRINT'TOTOn / — V 
1085 P0KEBHP,42 
1010 PRINT" / o V 
1020 PRINT" / I " 
1830 PRINT" / /" 
1040 PRINT" / / — \ p 
1850 PRINT" 1 I /_/■ 
1060 PRINT" n_S I " 
1078 PRINT" \ -V" 
1880 PRINT" — • 
1090 PRINT" 
1100 PRINT" 

1119 PRINT" 

1120 PRINT" 
1130 PRINT" 
1140 PRINT" 
1150 PRINT" 
1168 PRINT" 

1170 PRINT"/ V 

1180 print" r; 

/ V" 1185 IFTI«J ,, 000002 ,, THENPOKEBNP,32.QOSUB9918 

1190 00T0138 
1200 PRINTTT; 
v* 1260 PRINT" HMMmmMnHM' 

I " 1270 PRINT"IW» VIC JUMP FR00 »" 

" 1280 PRINT"|-m************M»«" 

1293 IFR.S-1THEN1303 
1290 PRINT"WB»COPVRIGHT CC) 1984" 
1300 PRINT'MMMMV FflRGET V." 

1302 PR I NT "TOOT 9 RETURH ■ >" 

1305 FORBRC-1TO750:NEXT 
1310 PRINT"WHO»l 
1315 FORBRC-1TO750:NEXT 
1320 OETB*IFB«OCHR*<13)THEN1260 
V 1322 IFHS-1TNENRETURN 

I"; 1323 PfS-1 

1330 PRINT"*TO»»MNIC JUMP FROG" 
/ V" 1348 PRINT"KIOT LES TOUCNES E'flCTIONJEQNT ■ *- *R 

1350 PRINT"»W - 'D' - 
.' 1368 PRINT"»W»EONNE CHANCE I!" 

I " 1370 G0T01385 

9888 END 

5900 pts-PTS+1 

9902 P0KE36875- 128 

9984 FORH JK-1 T028 ■ NEXT ! POKE36073 , 

9918 BMX-BMX+VP,L<TIS> 

9918 TI*--000000" 

9919 IFSRS-1THEN9988 

9920 OOSUB10020 
9988 RETURN 
10090 POKE36879-139 
19018 R-8021-B-76 

\" 10012 IFPOI-1 THEN 10020 

I"; 10015 IFTU<"000083"THENGOTO 15989 

19817 BMX-BMX*VHL(TI«) 
/ \" 18028 ZX«INT<1+5*RND(9)) 

10923 POKEBNP.32 
10030 ZZ-rNT(8023*3»RND<0J) 
." 10040 ZR"INT(?937+3"RND<8)> 

I " 18930 Z3-INT<7913+5»RND(0J) 

10860 ZE»INTC7869+3*RNIXe)) 
18878 2F-INT(7883+3*RND':9J) 
10088 IF2X-1THENBNP-ZZ 
I999B IFZX-2THEN8NP-ZR 
18100 IFZX-3THENBNP-ZS 
10118 IFZX-4THENBNP-ZD 
18129 IFZX-3THENBNP-ZF 
19139 POI-9 
V" 19999 P0KEBNP,42 

I"; 19990 RETURN 




I F T I f < " 088002 " THEN 1 20 
28803 BMX-BMX+VBL<TIf> 
28818 TII-"08008e" G0SUB13328 
28829 00T08 
22888 GOTO31008 
22802 FORSL-0TD20 

22994 POKE36B74, 242 F0RS1-8T048: NEXT 
22006 P0KE36874 , 245 ■ FORS 1 -BT028 1 NEXT i NEXT 
22088 PDKE36874,0 
22010 FORS2-1TO2098:NEXT 
22811 ERR-INTCl*C16-n»RND(l>} 
22012 IFPTS>-45THENPTS-PTS*ERR 
22819 IFPTS>H5CTHENHSC«PTS:0OT023388 
22819 
22828 
22030 
22840 
22058 
22868 
22878 
22999 
23898 
23919 
23828 
23838 
23049 
23038 
23868 
23070 
23080 



PRINT""*". :P0KE3687S,29 
PRINT"KWHI0H SCORE I" 
PRINT " WW WDETE NIJ PRR" 

PRINT"SWWW1VEC"MSC N MOUCHES. " 

PRIHT'aMHMMM RETURN ■ — >" 

GETB*- IFBfOCHR*(13)THEN22978 

GOTO2808e 

PRIHT"^l"i ^P0KE36879,29 

PRINT"COM»ERPV0 !..!" 

PRINT-BORECORD BflTTU ..." 

PRINT"K«aWi^OTRE PRENOM " 

PRINT"]**!"; I INPUTJJF* 

PRINT"«»ET VOUS VOILR PLEIN «DE GLOIRE." 

PWIK T'*J******—J return * — y 

GETB* i IFB*OCHR*f 1 3>THEN23870 

G0T022819 
2HWJB PRINT" - ]"; 
28010 PRINT"W»DUELLE CHftSSE ..." 
28929 PRINT ")*»M»IB[JUH .11..." 
29938 F0RHJtf"lT01999:NEXT 

29840 PRINT"BB VIC FROO R BIEN IB PIRNOE..." 

28858 PRINT"n*ENFIN ..I." 
28868 PRINT"»**IJHE RUTRE CHRSSE" 

28878 imimmm mmmmmm mmmma/io i***r;cBM 

IFLEFT*(CBt1*.l)O H 0"RNULEFT»<i:BM*,l)O"N-THEN2887e 

IFLEFT^<CBr1«,l)- ^ N ,, THENVB-l:PRINT-^-■; ■ FQROVJ-3B400 

" POKEOYJ,6'NEXT:GOTO10 

00T06 

CBMt-"BVE.. EVE. .tnaXKSXO£H GH.'iE OVER" 

WER-1 

PRINT'WBH"; 

PRINTMIM(CBI1*,HER,n; 

F0RXDR»1T073:NEXT 

WER-WER*! 

IFWER-KLEN(CBn«)THEN38020 

FORXDR- 1 TO750 ! NEXT 

CBN«-"CROOfl. . " 

UER-1 

PRIHT-V 

PRINTMID«CCBM*,UER.1> 

F0RXDP-1T075'NEXT 

WER-WER *l 

IFWER-1<LENCCFM»)THEN30089 

FORI-1TO230.NEXT 

PR I NT ■ l**M*J*BB**B*jaB*l***M**M 

F0RI"1T0INT^238+338*RNDC1)):NEXT 

GETB* IFB*OCNR*n3)THEN38859 

FOPI=1T01998:NEXT 



30139 
39140 
39143 
39130 



RUN 



"PTS 



BIBLIO 



Voici un programme assurant la gestion d'une petite 
bibliotheque, qui rendra d'appreciables services a tous 
ceux qui, comme moi, pretent a tout venant, livres et 
revues (Hebdogicief par exemple...) et sont incapables 
de se souvenir a qui on a prete" quoi. 

Remi LANNE 

Ce programme est un veritable logiciel de gestion de fichier a petite 
echelle (n'en demandons pas trop a la HP 41). II permet en effet, la 
tenue d'une cinquantaine de fiches et assure les (onctions suivan- 
tes: ajout. suppression, lisle globale, recherche par critere, affichage 
de la (iche complete. II n'y manque que le tri, qui dans cette applica- 
tion, n'aurait vraiment pas d'utilite. 
Notice d'utilisation'du programme: 

Materiel: HP 41C + au moins un module de memoire ou HP 41 CV, 
CX. 

Fonctions commandes: il est bien entendu preferable d'assigner ces 
commandes. 
INIT: 

re-initialise le fichier: destruction totale et definitive de I'ancien fi- 
chier. 
PRET: 

a executer lorsque vous pretez un livre. La machine demande la 
date, iniroduisez celle-ci sous le format JJ.nn. avec JJ: jour du mois 
el nn: numero du mois en deux chiffres (Mars ■ 03 et non 3). En- 
trer ensuite le tilre et entin le nom de I'emprunteur. La machine 
passe automatiquement en mode "alpha". Le nombre maximum de 
caracteres du litre et du nom de I'emprunteur est de 12. soil la lar- 
geur du registre d'affichage. A ces trois questions repondez, puis 
pressez R'S. 
INC: 

passe a la fiche suivante. 
DEC: 

passe a ta tiche precedenle. En effet. la machine pointe en perma- 
nence sur chaque fiche les manipulations effectuees Les deux fonc- 
lions precedenies permellenl de passer dune fiche a lautre. 
LISTE: 

affiche. dans I'ordre chronologique toules les fiches presentes en 
memoire (equivalent d un "CAT",..) La fiche pointee est alors la der- 
niere entree. Pour se posilionner sur une fiche quelconque. presser 
"R'S" immedialemenl apres I'affichage de celle liche (si vous tardez, 
il peul elre necessaire de relourner en arriere par la commande 
"DEC"). 




HP 41 



VISU: 

visualise loute la fiche pointee, presentant le litre, suivi de I'emprun- 
teur, suivi de la dale du pret, 
RENDU: 

elimine du fichier, la fiche pointee. Cette elimination est definitive. 
CHERCHE: 

permet de rechercher dans le fichier une ou plusieurs fiches. A la 
question "NOMiTITRE", repondez soil par: 

- un litre: la machine pointera sur sa fiche. 

- un nom: la machine listera tous les ouvrages qui lui auront ele 

pret6s (— liste seleclive). 
La machine reconnait elle-meme s'il s'agit d'un nom ou d'un litre. Si 
elle ne trouve pas le ou les ouvrages souhaites, elle repondra par 
"INCONNU..." 

Apres I'execulion de chaque commande, la machine affiche soil 
"OK", soil le litre de I'ouvrage pointe et se positionne en F1 X 3, 
notation decimale europeenne, pile vide. 
Renseignements complementaires: 

Chaque fiche utilise 5 registres de donnee. Le format de stockage 
est le suivant: 

5K : dale sous la forme JJ.nn, 
5K + 1: debut du litre. 
5K + 2: fin du litre. 

5K + 3: debut du nom de I'emprunteur. 
5K + 4: fin du nom de I'emprunteur. 
Les 5 premiers registres sont utilises comme suit: 
R00: pointeur— • 5 x le numero de la fiche pointee. 
R01 : numero de la derniere fiche + 1 
R02: intermediates, slockenl le nom ou le tilre. 
R03; recherche dans CHERCHE, 
R04: non utilise. 

Le programme occupe 62 registres. en fonction du nombre de mo- 
dules de memoire disponibles. on se placera dans les conditions 
suivanles: 
Nombre de modules Partition Nombre de fiches 

65 inutilisable 

1 130 12 

2 190 25 

3 255 37 
4, ou quadram, ou CV 50 

50 tiches, soil 50 litres pretes simullanement. suftisent largement a 
une utilisation individuelle. II est neanmoins possible d'accroilre ces 
possibililes par I'ulilisalion d'un module X-tonctions associe a un ou 
plusieurs X-RAMS. 
Ce programme n'a pas ete elabore en vue dune utilisation avec 

18 



imprimante, devant avant tout elre maniable. pratique et devant pou- 
voir etre utilise en "volant", un peu comme un bloc-note. Mais, la 
sortie peul-elre envoyee sur imprimante en modifiant de facon ade- 
quate le sous-programme 13 et en ammenagant les routines d'in- 
terrogation. 
Ce programme n'utilise pas de (onctions synthetiques. 



12:53 86.85 


27 RCL 81 


54 RCL 81 


6HL6L -RENBU- 


28 RCL 88 


55 5 


82 XEO n 


29 5 


56 X=Y? 


83 RCL 91 


38 * 


57 GTO 12 


64 5 


31 X<V 


58 -TITRE :■ 


85 X=V? 


32 STO 88 


59 RVIEU 


86 GTC 12 


33 CTO 83 


68 P-R 


87 - 


34«LBL -JEC- 


61 XEO 13 


88 STO 81 


35 4 


62 P-R 


89 1 


36 RCL 88 


63 -EUPRUNTE PUR 


18 - 


37 5 


64 RVIEU 


11 ,1 


38 - 


65 P-R 


12 x 


39 X>Y? 


66 XEQ 13 


13 SH 88 


48 STO 88 


67 P-R 


14 RCL 88 


41 GTO 83 


68 "LE " 


15 5 


42«LBL 82 


69 RCL 88 


16 ♦ 


43 RCL 88 


78 4 


17«LBL 81 


44 5 


71 - 


18 RCL IND X 


45 / 


72 STO 88 


19 STO IND 88 


46 INT 


73 RCL IND X 


28 RDH 


47 5 


74 INT 


21 1 


48 » 


75 (1RCL X 


22 ♦ 


49 STO 88 


76 "h-- 


23 ISC 88 


58 RTN 


77 LASTX 


24 CTO 81 


5HLBL "VISU- 


78 FRC 


25 CTO 12 


52 XEO 85 


79 188 ^ 


26«L6L "INC" 


53 XEO 82 


88 » ▼ 
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DES MONSTRES ETMERVEILLES 



Le scenario est classique, mais linteret de ce pro- 
gramme esl que toute laventure se deroule sous forme 
graphique sur I'ecran du PC 1500. 

M. LAURENT 

Apres un RUN qui conduit a initialiser toules les variables du decor. 

vous voila Iranslormes en un courageux chevalier qui. vous le ver- 

re2. ptefere la marche a pieds dans son armure de metal, arme de 

son glaive redoutabte et de ses (leches magiques. Etudions les dif- 

ferentes situations dans I'ordre: 

La difficult, de 1 a 9 : decide de lagressivile des monstres. de la 

probability d'en rencontrer, etc... 

A gauche de I'ecran: le chateau et le ponl levis que vous devez 

atteindre. 

A dtoite de I'ecran: 2 nombres sous la forme: n/m. 

n: represente vos points de vie (initialement 30). 

m: le nombre de kilometres qui vous separent du chateau. 



ou bien m en REVERSE (blanc sur fond noir) represente les poinls 
de vie d'un eventuel monstre. 
Comment combaltre un monstre: 

• Combat a I'epee: appuyer sur la louche C (vile sinon le monstre 
attaque le premier). 

Soil le coup atleinl le monstre. ses points de vies diminuent aleatoi- 
rement (lorsqu'ils s'accumulent, il disparait). 
Soil le monstre recule el c'esl un coup pour rien. 
Puis le monstre riposte et alors, une flamme sort de sa gueule bru- 
lante. Si elle vous atteint, vos points de vie baissent alealoirement 
et le monstre vous laisse alors riposter le premier (vite!). Si la 
tlamme ne vous atteint pas. vous ripostez immedialement avec 
voire glaive. 

- Combal avec I'arc magique: vous avez remporte avec vous I'arc 
de la fee QWERTY, mais vous ne possedez que trois (leches magi- 
ques qui sont comptabilisees grace aux indicateurs I. II el HI du 
mode RESERVE au dessus de la scene. 

Pour tendre votre corde, appuyer sur la louche f . Le coup part 
tout de suite et est toujours model. 



- La fuile: si vous croyez ne pas faire le poids conlre le monslre qui 
vous menace, il vous reste la possibililo de partir en couranl dans la 
direclion opposee au chateau, deux kilomelres plus loin. 

Pour ce laire, appuyer sur la louche F (comme fuile). Of, meliance. 
si le monstre a reconnu en vous un froussard. il pourra, fache. vous 
rejoindre instantanement el attaquer le premier, vous n'aurez plus 
qu'a riposter. Heureusement, peu lucides. les monslres ne s'aper- 
coivenl pas de voire defaillance et passenl leur chemm la plupart du 
temps. 

- Une fois le monstre terrasse, celui-ci disparait et vous continuez 
voire chemin vers le chateau. A 1'extreme droite, a cote de vos 
points de vie. clignote quelques secondes le nombre de kilometres 
qui vous separent encore, de voire but ultime. 

II arrive bien sur, que vous ne renconlriez rien a certains niveaux du 
parcours. Vous tournez alors la tete pour vous en assurer el parcou- 
rez un nouveau kilometre. Helas, ce chemin seme d'embuches 
comporte egalement des SERPENTS qui vous retirenl, en un rien 
de temps, un point de vie sans que vous puissiez faire quoi que ce 

soft 



l:REt1 Des aonstr 


, "7936365661" 


430:GO5UB 


280 




NEXT K 


930: JF H=0THEN 140 


1330:S=S+X:FOR K= 






M 1 


r"/\ 




es & nerve ! 1 le 


60:FOR K=0TO 


3: 


432:UA1T 25 


704 


U01T 0: GCURSOR 


335:UAIT 5 


0TO 33: 


r*^ 


T 


"%l ll l 


s 


READ C$(K) 




433: IF HLET H-0: 




Z:GPRINT S*(0> 


940:BEEP 1,2, 1000: 


GCURSOR K: 


D( 


1 


lUV 


2:REH fimeur: 


NEXT K:F0Fi 


K=0 


GOTO 548 


705 


UA1T 8:X=X+1 


FOR K=ZT0 U-13 


GPRINT "00"+ 


wr\s 


1 ' 


mr ^^ 


XJean-Cyri 1* 


TO 3: READ 


D*<K 


435: FOR K= 


1T0 50-0 


7B6 


R=RND 188: IF R 


: GCURSOR K: 


H*(0):NEXT K 


l ^^ 






**LAURENT«* 


):NEXT K:F0R K 


*2:A*= 


INKEY* : 




>20THEN 710 


GPRINT D*C0): 


1348:GCURS0R 0: 




1 ft 




3:REn PC- 1500 


=0TO 4:READ F* 


IF At= 


'"THEN 4 


707 


FOR K=1T0 5: 


NEXT K 


GPRINT H*<1) 




\ * 


+Exl.4 Ko 


<K):NEXT K 




65 






GCURSOR U-9: 


960:GOTO 410 


:U=24:F0R K= 








■UORUN : CLEAR : 


75:FOR K=8T0 


5: 


440: IF A*= 


'C'THEN 




BEEP 1, 2*K, 17: 


970: S'POKE S7G4E, 


8T0 10: BEEP 


o ' 




It ■*■ 


RANDOn :GOTO 1 


READ H*<K) 




478 






GPRINT M*<5): 


65: END 


1, K, 15:NEXT 









NEXT K:READ H* 


450: IF A*= 


'F"THEN 




IF INKEY* =" " 


1880: "p"UAIT 0: 


K 


-^v O , ■ J 






5:T=lE4*TIr1E : 


C8),H*<1), 


HU2 


850 






THEN 789 


GCURSOR 149: 


1360:GCURSOR U: 


fa^£ 








CURSOR 23: IF T 


):F0R K=8T0 9: 


460: IF ASC 


A*=I1 


708 


GCURSOR U-14: 


GPRINT N*CP) 


GPRINT t1*<0> 


X l mt 






>60-STHEN 1900 


READ A*:N*<K>= 


THEN 800 




GPRINT S*(0): 


: RETURN 


1378:G0T0 140 




k^l" 


"■?/ 


6:PRINT 'V";STR* 


"7F"+A*+"?F": 


465: NEXT K 


-GOTO 53 




NEXT K:G0T0 71 


1 100: "v"E=STATUS 


I508:PAUSE : FOR K 


"^^^*x f^ r&~t 




I $% 


T; RETURN 


NEXT K 














4:WAIT 5:F=] 


=1T0 4: 






\\ r\ 




18:UAIT 25:PRINT 


80:BEEP 2:PAUSE " 


470: F=0, R= 


RND 100: 


709 


U=U+7: GOSUB "v 


:IF E=709LET 


GCURSOR 16: 


-^ s\f~^ ^c. 




A V i 




"Des monstres 


Preux Che 


vol i 


IF R<25LET F=l 




": GCURSOR U-14 


F=-F, R=-7 


UAIT 5: 


1 'y-^ j~> C 




^ S? 




et merve ! 1 1 es " 


er...":WAlT 0: 


488: GCURSOR A: 




:GPRINT S*(0) 


1101.-FOR ]=U+RT0 


GPRINT S*<0> 


o^>S> ' 




\\ 7 




2B:Din C*<3>, 0*<3 


PRINT "Que 


1 le 


GPRINT 


C*C1J 


710 


WAIT 10: IF F2 


USTEP -F: 


+"0000": 




\\ // 


1*26, F*<4)*18, 


sera la d 


rric 


498: IF FTHEN 




THEN 250 


CURSOR 22-W: 


GCURSOR 16: 


'ff?^^is. := ~~~ 




r\\ / 


n*<5>,H*<2>*22 


ulie?" 




GCURSOR B:UAIT 


715 


GCURSOR U-i: . 


IF K0THEN 7 


UAIT 25: 


"y m ^& 




1 XV J 


,N*<9>*T4, J*(l 


85: IF UAL INKEY* 


10:BEEP 1,2, 18 




GPRINT "80"+n* 


58 


GPRINT "7C46 








>*20, B*U),S*< 


=0THEN 85 




:GPRINT D*<0>: 




C8):G0SUB "km" 


1182:8Etr j, i, 15 


454D554D4546 


45LET Z=Z-3: 




: GOSUB 5: 


0>*28 


30:O=UAL INKEY* - 


L4AIT 25 




:G0T0 175 


1105: IF K10PRINT 


7C" 


GOTO 1630 




GOTO 1750 


25:DIt1 X*(l>*6, Y* 


3:GPRINT H*(0> 


508= GCURSOR A: 


750 


U=185:BEEP 2, U 


USING "*«"; 1 


t501:BttP 2,85, 25 


1620: IF D=1AND 7< 


1900 


BEEP 5,4,580 


<1>*6,G*<24>*3 


95:F0R K=1TQ 


6:S* 


GPRINT 


C*C2) 




, 388: BEEP 1,U, 


:GDT0 1120 


:NEXT K:U=I: 


78LET 2=2+3: 




:UA1T 25: 


31:DATA "02446A1F 


C0>=S*<0)+ 


"000 


510: IF FTHEN 530 




98:BEEP 1, U, 27 


1110:PRINT STR* 1 


R=0: 0=0+3 


GOTO 1630 




GCURSOR Z+D* 


634000", "00081 


0":NEXT K 




5!5:BEEP 1 


15.250 




0:BEEP 1,82,30 


1128:NEXT I : UA I T 


1505:FOR K=16T0 2 


1625: GOTO 1760 




3:GPRINT S*< 


86A1F634000", " 


I85:P0KE &764E 


, 17 


520: GCURSOR 2: 




0:8EEP 1,93,98 


0: IF U=8THEN 


4:G*CK-8)= 


1630: GCURSOR Z: 




8i: GCURSOR Z 


20506A1F634000 


I10;U=122, U=3E 


,N=9 


GPRINT 


D*C3> 




:8EEP 1,93,270 


750 


STR* POINT K 


GPRINT X*(0J 




■■33+D*3: 




, Y=3, S=Jl 




522:R=RND 


B, P=P-R: 




:BEEP 1,U, 90 


1130:RETURN 


:NEXT K 


+J*C0)+Y*<D) 




GPRINT S*CB) 


32: DATA "7D3B1560 


120:CURSOR 21 : 




IF P<0LET P=0 


755 


BEEP 1, U, 270: 


1200: "km"UAIT 8: 


1510:UA1T 2:F0R K 


: GCURSOR 2+3 




: GCURSOR Y: 


1C3F7F" 


PRINT U;V 




524:G0SUB 


•p" 




BEEP 1, 112,90: 


FOR K=1T0 3: 


=BT0 12: 


3:GPRINT X*( 




GPRINT S*C0) 


36: DATA "00003048 


STR* N:GCUR5UR 


525: IF-P^0THEN 700 




BEEP 1, U, 548 


CURSOR 24: 


GCURSOR 8+K: 


D)+J*C1 J+Y*< 


1905 


GCURSOR 0: 


2C5E5F56450A02 


U:GPRINT t1*(0> 


526: WAIT 25 


760 


CURSOR 20: 


PRINT 'V ": 


GPRINT £7F: 


D> 




GPRINT LEFT* 


0000", "30402C5 


140:R=RND 180: 


IF R 


530:GOSUB 


780 




PRINT "Adieu!" 


CURSOR 25: 


BEEP 1, 1,5: 


J640: IF (POINT <Z 




<SS<0>, 14): 


E5F56450A060C1 


<50+O*2THEN 40 


548: GCURSOR B: 


770 


POKE R764E,65: 


PRINT STR* N 


GCURSOR 32-K 


+I3)+P0INT < 




GCURSOR 33: 


4342A" 







GPRINT 


D*<0> 




uJAIT :PR1NT : 


: IF N=0BEEP 


:GPRINT 87F: 


Z+32))>0THEN 




GPRINT S*<0) 


3?:DATA "30402C5E 


150:R=RND 100: 


IF R 


550: T=l, R= 


?ND 100: 




END 


1, 5, 1580 


NEXT K 


1808 


1910 


: GCURSOR 33: 


5F56458A060C12 


<20+O*3THEN 63 


IF R<33-0*2LET 


780 


GCURSOR Z: 


1218:NEXT K 


1528:UA1T 0:FOR K 


I678:U*=!NKEY* : 




GPRINT ri*C0> 


", "907F4F3F532 







T=2 






GPRINT D*C8>;C 


1220:RETURN 


=BTD 55: 


IF U*=""THEN 


1920 


:F0R K=0TO 12 


120233A757O7F" 


155: IF F2THEN 


400 


560: GCURSOR Z'. 




*<0):RETURN 


1250:CURSOR 6: 


GCURSOR K+45 


1750 




: GCURSOR 20- 


4i:DATA "82008808 


160:BEEP 1,286 


,58 


GPRINT 


0*CT) 


880 


IF Y=0BEEP 3: 


PAUSE "Ciel 


: GPRINT 0: 


1680: IF U*<>"Q" 




K:UAIT 0: 


486AIF6340", "8 


170:UAIT 25: 




578: IF T=2THEN 470 




GOTO 530 


! le Chateau 


GCURSOR 155- 


THEN 1718 




GPRINT UAL G 


20888085C6A1F6 


GCURSOR U. 


BEEP 


575: BEEP 1 


1, 1500 


820 


Y=Y-l:UAIT 5: 


. .. ":F2=l:S= 


K:GPRINT 0: 


1690: IF L=1LET Y= 




*(12-K): 


348" 


1, 7, 200:GPRINT 


580: GCURSOR U: 




FOR K=0TO 4: 


RND 7:UAIT 8 


NEXT K 


Y+3 




GCURSOR 20+K 


42:DATA "8208881C 


n*(4):LJAn 


10: 


GPRINT 


C*C3J 




GCURSOR C: 


1290: CURSOR 5: 


I530:GOSUB "u": 


1700:Y=Y-3, L=0: 




:UAIT 5: 


486AIF6340", "0 


GCURSOR U 




598:R=RND 


5:U=U-R 




GPRINT F*<K): 


PRINT USING 


CURSOR 23: 


GOTO 1740 




GPRINT UAL G 


2081488486A1F6 


GPRINT ri*<0> 


688:G0SUB 


'v" 




NEXT K 


; ". .garde pa 


PRINT 'V8" 


1718: IF L=0LET Y= 




*C12+K):N£XT 


340" 


175:UA!T 18 




620: GOTO 430 


830 


POKE 8.764E, (2* 


r" ;Sj "monstr 


153): J*C0J="08388 


V-3 




K:UAIT 118 


•13:DATA "80148808 


188:F0R K=UT0 


U-10 


630: BEEP 4 


2,200 




<7-Y)>*<YO0) + 


e";:IF S>1 


888882A2A1C8 


1720:Y=Y+3, L=l 


1940 


CURSOR 15: 


486A1F6348" 


STEP -2 




636: IF F2THEN 




i:G0T0 700 


PRINT "5" 


808", J*C1J=' 


1748: GCURSOR Y: 




PRINT "Cheva 


47:DATA "00084A7F 


I90:GCURSOR K 




GCURSOR U-2: 


850 


JF F2THEN 530 


1300: IP SMPR1NT 


88081C2A2A08 


GPRINT 8*<L) 




1 ier, ": 


03000000", "486 


gprint men 


GPRINT 


"0000"+ 


860 


GCURSOR U: 


" ! " 


08083808" 


1745: IF POINT <Z+ 




CURSOR 1 1 : 


A1F2360" 


195: BEEP 1,2,5 




M*(0> 






GPRINT n*C2) 


1310:WA1T I5:FQR 


I532:B4C0J="486A1 


13)<>0OR 




PRINT "Tu as 


49: DATA "0000037F 


200: GCURSOR K- 


2: 


640: WAIT 4 




865 


UAIT 5 


K=1T0 S: 


P6340000008' 


POINT <Z+32> 




aneant ! ": 


4A08", "60231F6 


GPR1NT M*(0) 


645: FOR K= 


J-15T0 U 


866 


D-U+24: IF D>12 


CURSOR 17: 


1535:B*C1)="000BB 


O0THEN 1808 




BEEP 2: 


A48", "00084B7F 


2I0:NEXT K 




-10:GCURSOR K: 




2LET D=122 


PRINT " ": 


040631F6A48' 


1747:G0SUB 5 




CURSOR 11: 


02", "10387E7E3 


220:U=U-12 




BEEP 1 


0,500: 


870 


FOR K=U+2T0 D 


CURSOR 17: 


. x*<n="0000 


1750: NEXT K 




PRINT USING 


810" 


225:N=N-I:GOSUB "k 


GPRINT 


H*(2>: 




STEP 2: GCURSOR 


BEEP 1,6: 


00", v*(0^x* 


1760: IF D=0LET D= 




;S; " flonst re 


5I:DATA "437C7F7C 


m" 




NEXT K 






K:GPRINT n*(3) 


PRINT STR* S 


(1), 7=60, Y=7 


1,2=2-3: GOTO 




s. . " 


7F7C4728 100884 


226: IF U=14TH£N 1 


650: FOR K= 


10TO 




: GCURSOR K: 


:NEXT K 


9 


1580 


1945 


CURSOR 7: 


", "437C7F7C7F7 


50 




STEP - 


I : BEEP 1 




GPRINT t1*(2>: 


1320:uJAlT 2:F0R K 


1550: GCURSOR Z: 


1778: D=8, Z=Z+3: 




PRINT "Le Co 


C03" 


230:GOTO 140 




.K, 15: 


■4EXT K 




NEXT K 


=2T0 21 : 


GPRINT J*(8J 


GOTO 1580 




rfre est a T 


52:DATA "00100804 


250: J=J+1:GCURS0R 


655:GCURS0R U-li: 


880 


Lj=0:N=N+2:!F U 


CURSOR K: 


: GCURSOR Z+3 


1808: BEEP 2, 20, 75 




ol":POKE B.76 


08102010080C08 


33+j*n 




GPRINT 


S*C8) 




=122LET N=9 


PRINT " ": 


3:GPR1NT J*C 


:R=O:U=U-0: 




4E, 65 




260: GPRINT RIGHT* 


660:U=U~1, 


R=l: 


898 


H=8:R=RND 100: 


NEXT K 


1) 


GOSUB "v": 


1950 


UAIT 50: 


54:DATA "412E363A 


<D*<3>, 22 


:1F 


GOSUB 


'v":IF F 




IF R<33+0*2LET 


1322:CURS0R 21: 


1560:GCURSOR Y: 


GCURSOR Y+3* 




CURSOR ?: 


41", "7F3D003F7 


X=STHEN 1500 


2THEN 


140 




H=) 


PRINT USING 


GPRINT B*(0) 


L=GPRINT "00 




PRINT " Ui 


F", "3D1E2E3639 


270: GOTO 140 




670: GOTO 175 


900 


GCURSOR U: 


"♦•fiUj"/ " 


1570: IF INKEY* =• 


08000888" 




ve le Roy 1 


", "3E3632344E" 


400: BEEP 2, 50 




700: BEEP 3 


75, 50 




GPRINT t1*<0): 


1326:WA1T 5:F0R K 


"THEN 1570 


1818: IF D=0LET Y= 




":8EEP 3: 


, "676B6D006F" 


410:Z=U-J3, A=L 


-2, B 


701: WAIT 8 


:F0R K=l 




GOSUB "km" 


=50TO 49+ 1 1 * 


1575:0=8, L=0, TIME 


Y-6 




GCURSOR 34: 


55: DATA "583A3A3A 


=U-15,C=U- 


3 


TO 5: GCURSOR Z 


910 


UAIT 15:BEEP 2 


SSTEP 1 1 


=0 


1828: IF D=1LET Y= 




GPRINT "084A 


46", "433536364 


415: UAIT 




:GPRINT S*C8>: 




, 150, 25 


1327: GCURSOR K: 


1580:fl=RND 3+0/-2 


Y+6 




7F5728582040 


F", "7E7E867A7C 


420:P=RND 9 




GCURSOR Z: 


920 


GCURSOR Z: 


GPRINT D*<0) 


1600:' r OR K=1T0 A 


1830:GCURSOR Y: 




":UAIT : 


", "4936363649" 


425:G0SUB "p" 




GPRINT 


D*(3): 




GPRINT S*(0) 


:NEXT K 


1610: IF D=8AND Z> 


GPRINT B*(L) 




PRINT :END> 


vi> 


95 SF 29 


115 ST+ 88 


135*LBL 86 




155 INT 




175 + 


195 5,08883 


SO IIT1HN 


Sr 


% CLST 


116 "TITRE V 


136 RCL IHB 00 


156 5 




176 STO 88 


196 XEQ 09 








Suite de la page 18 


97 PROMPT 

98 CTO 84 


117 XEQ 18 

118 -EHPRUHTEUR V 


137 RCL 02 

138 X*Y? 




157 MOD 

158 4 




177 RTN 
178M.BL 18 


I97*LBL 11 
198 XEQ 13 


DEL'HIPPOREBUS: 










BIBLIO 


99»LBL 05 


119 XEQ 18 


139 GTO 87 




159 X*Y? 




179 fiOH 


199 P-R 








188 FIX 8 


128 GTO 12 


148 1 




160 GTO 03 


o rr\ \ 


180 PROMPT 


288 ISG 88 


10 


FOR I 


= 1 TO 7 


81 flRCL X 


181 SF 27 


12i*LBL 


-THIT- 


141 ST+ 00 




161 SF 85 


<3> \k-Jr\ 


181 flOFF 


281 GTO 11 


20 


REFIE 


< 


82 CTO 84 


182 CF 29 


122 CLRC 


142 RCL IND 88 


162 4 


_/S^\ o sY\^^~3 


182 fiSTO IHD 08 


282 4 


30 


PRINT 


CHR$ <X)J 


33»LBL 12 


183 RTH 


123 5 




143 RCL 03 




163 ST- 08 


\*^Oc^^^^^^ 


183 1 


283 ST- 88 


40 


NEXT 


[ 


84 ' OK" 


184«LBL -PRET- 


124 STO 88 


144 X=Y? 




164 XEQ 13 


1 (^^b^^^tL 


184 ST+ 88 


284 GTO 12 


5tf 


END 




85 CTO 84 


185 XEQ 85 


125 STO 81 


145 GTO 88 




165 P-R 


185 OSHF 


285»LBL 13 


60 


DATA 84/69/76; 


864LBL 83 


186 RCL 81 


126 GTO 


12 


146+LBL 87 




166 6 




186 ASTO IHD 88 


286 CLfl 




69.-34 


69,76 


87 5 


107 STO 88 


127*LBL 


-CHERCHE- 


147 ISG 00 




167 ST* 88 




187 1 


287 1 








86 RCL 81 


188 5 


128 CF 05 


148 CTO 06 




168 GTO 86 


^~~~^^^^\\ \ 


188 ST* 88 


288 ST+ 88 








89 X<=Y? 


189 + 


129 2 




149 FS?C 0= 




169*LBL 89 


^_^^a -aj 


189 RTH 


209 fiRCL IHD 80 




9> r 




98 CTO 12 


118 STO 81 


138 STO 00 


158 GTO 12 




178 RCL 81 


-: ^^^^\ 


198»LBL -LISTE- 


218 1 




°° )>£ 




91 XEQ 02 


111 -DATE ?• 


131 -HOfl/TITRE ?' 


151 •INCONNU .. 


" 171 5 


■2=r 


191 RCL 81 


211 ST* 00 




(fiw 




92 XEQ 13 


112 PROMPT 

113 STO IHD 08 


132 XEB IB 

133 5 


152 GTO 84 
153*LBL 88 




172 - 

173 1 E3 




192 5 

193 X=Y? 


212 flRCL IHD 88 

213 OVIEH 






c_-R 


93*LBL 04 




94 FIX 3 


114 1 


134 XEQ 89 


154 RCL 80 




174 / 




194 GTO 12 


214 END ■ 
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LE LOGICIEL 
DE LA SEMAINE 



BRUCE LEE sur CBM 64, 
/1PPLE et SPECTRUM 
par MCC. 



Amis lecteurs. nous sommes 
sincerement desoles. Voici 
dfjja plusieurs semaines que 
se sont introduit dans nos lo- 
caux deux mfames peiils nams 
qui nous narguent obslinement 
de la cafetiere oil ils sonl 
caches en delournant sans 
vergogne le logiciel de la se- 
maine a leur profit. Apres avoir 
essaye sans succes de les de- 
loger a grand renfort de DDT. 
nous avons resolu de betonner 
leur repaire. Vous pourrez 
done dorenavant. amis lec- 
teurs, relrouver avec plaisir le 
serieux qui a fait la renommee 
de cette rubrique. 
Epoustouflant jeu d'arcade au 
sein duquel vous incarnez Fin- 
vincible BRUCE LEE dans sa 
quete de 1'immortalile, ce pro- 
gramme a vraiment tous ies 
atouts pour devenir un 'must' 
de voire logilheque. 
Jugez-en. 

Delenteur du secret millenaire 
de rimmortalite. le sorcier de 
Jade s'est cloitre dans la forle- 
resse inexpugnable batie par 
ses ancetres. Or, au cours de 
ses peregrinations, Bruce Lee 
apprit des Grands Anciens les 
principes sacres mis en oeu- 
vre pour la construction des 
systemes de defense de la 
sus-dite forteresse. 
Aujourd'hui. il se sent enfin de 
taille a se mesurer avec le sor- 
cier de Jade et ses innombra- 
bles sbires. Parmi ceux-cr. les 
SUMO verts ne sont pas des 
moindres: ce sonl des guer- 
riers confirmes et qui plus est. 
leur poids les avantage. Heu- 
reusement que Bruce est un 
karateka hors-pair! Car il lui 
sultit de leur porter trois coups 
lethaux pour les mettre provi- 
soirement hors de combat, 11 



en est de meme pour les 
NINJAS NOIRS, mais ils sonl 
plus dangereux: ils portent un 
yatagan et peuvent ten eslo- 
quer jusqu'a terre. 
Et malgre les attaques sour- 
noises et repetees de ces 
ignobles mercenaires. Bruce 
devra eleindre les lanternes 
qui jalonnent son parcours, 
franchir des delerlements de 
particules qui changenl de 
sens, escalader des parois 
avec pour seule aide quelques 
ceps de vigne, et eviter les 
lasers qui parsement sa route. 
De plus, non seulement vous 
pouvez jouer Bruce Lee. mais 
vous pouvez aussi lutter 
conlre un de vos amis qui in- 
camera a tour de role le Sumo 
vert, el notre heros. 
Que dire d'autre? L'animation 
nous a slupefie. les bruilages 
nous ont emerveilles. et quel 
bonheur de pouvoir enfin ega- 
ler le maitre du Kung-fu! 

Hubert de Thievaine la Char- 
treuse 
et Maixence de" la Foix du 
Clos. 




LA VENGEANCE DE MICHE 
ET MICHA (GOSUB (* )) 



ZE DALLAS QUEST 



Avec dans les roles principaux 
J.R.Miche et Sue E. Micha. 
Special guest: Sir Sherlock 
Miche et son fidele alcoolyte 
Micha Watson. 

Decors de Miche Hart, costu- 
mes de Micha Cardwell, musi- 
que de Johnny Miche et Cra- 
bouif Micha. 

Realisation Stanley Miche el 
Micha Lucas. 

-"Venez vite, je vous en prie... 
'11' doit bient6t rentrer. et alors 
il sera trop tard. Oh. Sir 
Miche, je vous en supplie..." 

Sue Micha se dirige vers le bar 

(long travelling), se sert son 

trenle troisieme visky du matin 

et s'allonge sur le divan du 

salon. 

Riiiiinnng...riiiiinnng...riiiinnng... 

(zoom sur le telephone) 

Titubante. elle decroche el 

lance: 

-"Hello, hie. .Ah, e'est Toi... 
(plan macro sur le combine) 

VoixoffdeJ.R: 

-"Darling, je suis retenu a Las 
Vegas pour la soiree (plan 
subjectif des impulsions elec- 
triques dans le fit telephoni- 
que), je ne reviendrai que 
1'annee prochaine (rires femi- 
nins a cote de J.R.). N'oublie 
pas que j'ai engage deux nou- 
veaux valets de chambre; ils 
doivent arriver demain a la 
premiere heure." 

Plan de coupe sur J.R. II 

s'adresse a une somplueuse 

creature en apparte: 

-"Haha! Je ne lui ai pas dit que 
Tun d'eux s'appe- 

lait...Chugalug Jones!" 

Contre-champ sur la fille qui 

s'esbaudit: 

-Tu es vraiment diabolique, 
J.R.IHihihihihi..." 

Retour sur Sue Micha. pano 

sur les bouteilles vides, qui 

sont vides. 

Sue vide son verre, s'en rem- 



plit un autre, le vide, en prend 
un autre, recommence, qua- 
torze fois de suite, puis (ondu 
au noir. 

TOKTOKTOK, dit la porte. 
Borborygmes et vagissements 
du crjte du tapis du salon, vers 
lequel se dirige la camera, qui 
se reflele un instant dans un 
miroir. Apres cinq minutes 
deructalions diverses, on de- 
couvre enfin Sue. Micha bai- 
gnant dans son coupe Coco ca 
va pas. Garde le plan quand 
meme, on le passera dans la 
version X. TATATATEREUH... 
Sherlock Miche and associate 
arrivent, vomissent en avisant 
le pietre spectacle qui s'etale 
sous leurs yeux, et se mettent 
en chasse. C'est bon pour 
cette sequence, on passe a la 
douze. 

Clap. Merci le clap. Action. 
Et nous retrouvons nos deux 
heros errant de verre en verre 
(y'en a plusieurs, un bon pa- 
quet, meme) et de deductions 
subtiles en hypotheses foireu- 
ses: 

-"Eh, soeur chere loque. que 
pensez-vous de ce magnifi- 
que specimen de Ratus Gi- 
gantum Nebulosa Asfarctis 
primaire? 

-Ca. c'est dans la Irois, mon 
pole, on en est a la douze. En 
amerique du sud. 
-Sur? Bon. je reprends (un 
verre): ser Schlock, vouatte 
do iou sink abaoute zis splen- 
did spessimen of Jagarius 
agressivus? 

-Attends, une page de pub, et 
je suis a toi." 

MESSAGE PERSONNEL A 

ALB1N MICHEL 

Cher Albin, a la page 80 de 

"Vive les vacances" de Reiser, 

il manque la fin de I'histoire. 

Pourrais-tu me 1'envoyer? 

Merci. 



HEBDOGICIEL RECRUTE 

Nous avons encore besoin d'informaticiens pour ren- 
forcer notre equipe. Ils devront connaitre au moins 
un des ordinateurs suivants: Commodore 64, Spec- 
trum, ZX 81 ou Oric. Les diplomes et ('experience 
professionnelle ne sont pas indispensables, seule !a 
connaissance parfaite du basic (si possible de I'as- 
sembleur) et la faculty de bien rediger sont n6ces- 
saires. L'6quipe actuelle est jeune {-de 25 ans) et le 
salaire attractif. Ecrire avec photo a Gesrard CEC- 
CALDI sous la reference AE/GC, SHIFT Editions 27 
rue du General Foy 75008 PARIS. 



-"Peut-etre pourrions-nous le 
neutraliser par lintermediaire 
de ce singe qui, si j'en juge 
par les marques rouges sur le 
pommeau de sa canne. a ete 
membre de la Simiesc Royal 
Academy, et en est parti a la 
suite d'une algarade avec son 
professeur d'histoire. 

-Mais comment voil-il tout ca? 
Ce lointain cousin de 1'homme 
ne me parait neanmoins 
guere cooperatif. Que comp- 
tez-vous done faire pour le 
contraindre (sans alerter la 
Royal Animal Protection So- 
ciety) a nous aider? 

-Bestial, mon cher Watson; je 
deduis des traces sur ses 
membres anterieurs qu'une 
simple seringue le satisfera. 

-A moins qu'une paille.-.Ciel! A 
peine sorti des griffes de Cha- 
rybde, nous echouons dans 
les meandres serpentins de 
Scylla (unique exemplaire de 
la faune amazonojournalistik 
le Serpentibus Engulorum fie- 
tardum Specia). 

-Et nous y perdons la peau. 
Duuuuuur! 

-Heureusement. d'ailleurs. car 
ainsi nous echappons a: 
* Cannibales (episode 728) 
' Vautour (episode 922 bis) 
' Lion, singes, hippopotames, 
trappes. lampes de poche...." 

Feux Sherlock Miche et Micha 
Watson 
(* ) Rassurez-vous, accros de 
remission ' hebdomadaire: ce 
nest pas une vulgaire chappe 
de beton, quand bien meme 
serait-il arme, qui nous empe- 



chera de poursuivre notre 
Grand Oeuvre du Piratage. La 
preuve: voici le cinq cent 
douxieme episode de... (RE- 
TURN FROM SUBROUTINE) 

(' * ) Par MCC. pour C8M64, 
APPLE II. ATARI (RETURN 
FROM SUBROUTINE) 
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DISPONIBLE : EXTENDED BASIC EUROPE 

AVEC MANUEL FRANCAIS 800 F 
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ACCESSOIRESTI99/4 

Modulateur 5ECAM France 

CAWe liaison magrrfto-eassetles 

Pa ire manettesjem 

Magneio-easseites compatible T.I unsay 

— c compteur ♦ ctole magneto compris 

EPSON RX BO FRICTION -TRACTION 

aGPSOO 
Interlace parallel ewericurc poor TI/99 
PROGRAMMATION 
EitrrWed bas/c Europe Manuel anglais* 
Extended basic Europe Manuel (ranks' 
Memoire exitenvon 12 K eJteneure 
Tl LOGO II en fabrication 
Bait par soi-mfme 
Aide a la p-ogiammation 
■disporutile fin octobre 

ORGANISATION 

Canseil finarxker 
Gestion fichiet 

SMWa 



Geiiionpiivee 

MODULES EDUCATION 

tttorvi*W*wnl 1 147.00 I n 1 EarlyReading I 117.00 I D | 

AMwo-luWrawiil 147,00 D Mrtew imitptMti 117.00 D 

Addu ion-Canon 117.00 Mulnplieation I H7.00 111 

r>/r«ndnn«tn | H7.00 | fl ] 



INTERFACE PARALLELE IMPRIMANTE 1.090 F 
BRANCHEMENT IMMEDLAT EXTENSION 32 K 1.340 F 



750.00 


n 


800.00 


1 1 


1340.00 


1 1 


875.00 


i i 


70.00 


1 1 


75.00 


u 


75.00 


n 


260,00 


1 1 


375.00 


1 1 


706.00 


1 1 


360,00 


il 


360.00 


a 



MODULES FUNWARE : 

Rabtrt nail I 285,00 I G | Driving Demon 

Ambulance 78550 G SanlNicK 

Hen House I 2B5O0 I G I 



K7 : 

Lunar lander 2 pour b: 
Lurwrjumpcr '/ / 



I 100,00 I n I 
I 170,00 | Q | 



■EXTENDED BASIC DISPONIBLE FIN OCTOBRE. 



PROMOTION 



MODULES LOISIRS 




Conneti lour 


117.00 


n 


JemwleoJI 


117.00 


1 1 


JeiwReOQl 


117.00 


LJ 


Jeu-Reuoll 


1 1 1,00 





Olhedo 
Munch M*i 



I 706.00 


n 


206,00 


i I 


750.00 


i 



NOUVEAUX LOGICIELS TEXAS 



Rclixtf pirate 


750JM 




250.00 




2W.00 




250.00 


rAcrosurgeon 


250.00 



250.00 
250XO 
25050 

250.00 
750,00 



PHOGRAMMES TEXAS EDUCATION : 

imroo«jri 79/4111 

Jntrod.au ?l 99/4 |2| 

Ln leclifiicjues oes pnjrjrarriny-. rje/T// 1 1 J 

Ij-i iKhrtquei des progr airimes de )rw |2| 

Complements el mmupiei 

M-jis r/wv*s J et 2 

HEBDOGICIELS SOFTAWARE 

Nrv I U.i-jtsar>(<eK/ I2jeu* 
iirjvi:..^ ttendu i/j/tj- 



75.00 


<■■ 


;',.oo 


a 


75,00 


i , 


•KOO 




150.00 


p 


150.00 




90,00 


1 1 



Le Module BASIC ETENDU manuel en francsis 

K7 BASIC PAR SOI-MEME 

K7 AIDE A LA PROGRAM MAT ION 

L ensemble 920,00 F. 



Le Module BASIC ETENDU manuel e 
K7 BASIC PAR SO! -MEME 
K7 AIDE A LA PROGRAMMATION 
EXTENSION MEMOIRE 32 K EXT 



Le Module flASIC E ItNDU nwnuel en Uaiv^n 
f )OFN5,ION MfMOIRr 32 K EXT. 
n LOGO N-' 2 




Lensemble 6.560,00 F. 



LOT N° 5 

Le Module BASIC ETENDU manuel en fran^ais 

MAGNETO CASSETTE LANSAV 

COMPTEUR + CABLE MAGNETO 

MODULE JEUX : . 

SUPER DEMON ATTAOUE 

BURGERTIME 

MUCHMAN 

K7 INTRODUCTION AUX JEUX N° I 

K7 INTRODUCTION AUX JEUX N° 2 

Lensemble 1.991 



LOT N» 6 

Pour ceui qui pauedenr. le 

cootrofeur et le lecieur de 

disqucti.es 

I CARTE P. CODE 

1 UCSD PASCAL COMPILEUR 

1 UCSD PASCAL LINKER 

1 UCSD PASCAL EDITEUR 

I EDITOR ASSEMBLEUR 

I DISOUETTE MATHS 

1 DISOUETTE FICHIER d'ADHESSES 

I DISOUETTE AIDE A LA PROGRAMM. II 

1 DISOUETTE AIDE A LA PROGRAMM III. 

Lensemble 3.5 



I MODULE BASIC E.rrNDU m.iriiiel r,i lr,.in.,ii-. 

I MODULE Tl CAI.C 

I MODULE COIMSEII. IINANCIER 

I MODtllf GLSIION DE RAPPORTS 

I MODULI IJI III IIIIK 

I INTLRfACE PARAlLElE Tl T9/4 

I 1MPRIMANTE GP 500 SEIKOCIIA 

Lensemble S.300,00 F. 



Deux plus : 

Pour votre Tl 99/4 A une 

extension memolre 32 K Ram 

exterleure. 

Vous allez ainsi, avec 43 K, 

reallser des programmes plus 

performants. 

Un Interface parallele type 

Centronics vous permet de 

connecter des Imprlmantes 

comme Epson ou Selkoscha. 



BON DE COMMANOE 

TARIFS OCTOBRE 1984 
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Wife . ... 

Cfiprix sonl intlii.lUlsct priivvl elir nu-ilitif, \,i 

/->c>/(/ii\ dtsponbiei dam i.> ttn&v tie not ueelo i 



tAffECU ACAICUL: 

65/67. MSam German 7500% PMH 

h- ■-./■ se r<vn t u.-aiwiw.-h ijojkac 

Uvrjlson dei piotiults dlsponlbfei sous Bjoufl. 



